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CHAPTER ONE 

The purpose of this book, as the title implies, is to introduce you, the Tl 99/4 and 99/4A Home Computer 
user, to TMS9900 assembly language and get you started writing in assembly with a minimum of grief. 
The reference guides provided with the Tl Editor/Assembler and Mini-Memory packages are just that, 
reference manuals. They assume you have a knowledge of programming in assembly. Naturally, this 
poses a problem for the beginner. Now, this book can act as a supplement to give you the background 
and skills needed to understand and utilize your Editor/Assembler manual. Upon completion of this 
material, you will be able to code simple programs in 9900 assembly language and be better prepared to 
use your Editor/Assembler, or the Line-by-Line assembler with the Mini-Memory, and the reference 
manuals to develop more complex programs and routines. 

it is best to read this book from start to finish because each lesson builds upon the previous one and 
program examples illustrate functions covered to that point To get the most from this book, you should 
have the Tl Editor/Assembler software, which includes the Editor/Assembler manual. Those who do not 
own the peripherals necessary to run that software (memory expansion and disk drive) may use the 
Mini-Memory module to enter many of the program examples. In this book, when the Line-by-Line 
assembler is mentioned, this will refer to the assembler program that is provided with Mini-Memory. The 
Line-by-Line assembler has certain restrictions which are described later in this book, but the concepts 
of writing assembly programs is the same as with Editor/Assembler. Those without Editor/Assembler 
should obtain a copy of the Tl Editor/Assembler manual, which is available separately. At the end of 
each section, this book provides page references to that manual where relevant infonnation can be 
found. 

Before proceeding with this work, you should be familiar with using Tl BASIC. Just as the BASIC 
language varies slightly from one type of computer to another, so do assembly languages. But if you are 
able to learn one form of the language, it is simple to apply what you have learned to another similar 
language. By now, you should have experience writing at least simple programs in Tl BASIC and Tl 
Extended BASIC. You will see that assembly is far more powerful than BASIC. But, it is a computer 
language, and like all computer languages it has particular rules, disciplines and terms that must be 
leamed. Once you learn more than a couple of computer languages, the similarities between various 
languages will be more apparent than the differences. 



TAKING THE PLUNGE FROM BASIC TO ASSEMBLY 

The program statements you probably have written so far in Tl BASIC have no meaning to the computer 
taken as they are. Each statement must be interpreted into the language the computer understands. This 
Is called "machine language." A language which is at machine level is said to be a "low level" language. 
A language such as Tl BASIC which closely resembles English phrases is called a "high level" language. 
The interpretation process Is carried out by a system of programs, subroutines, and data put Into your 
computer by the manufacturer. This system is known as the BASIC interpreter. 

The interpreter analyzes each BASIC statement and converts the high level BASIC statements into a set 
of machine language instructions which actually cause the computer to function. No matter what popular 
programming language you write in, they all must be translated into the machine code the computer 
understands. It is the need to perfomi this interpretation process as each statement is executed that 
causes programs written in Tl BASIC or Tl Extended BASIC to run much slower than a program 
comprised of machine code instructions. 
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The assembly process improves upon this vastly. A program written in assembly language is assembled 
by the assembler much the same as the interpreter processes a BASIC language program. However with 
assembly, the resulting set of machine codes can be saved on some device for reuse. Then, when the 
program is run, there will not be any "middleman" as in BASIC. The machine code is directly executable 
by the computer and, so, executes very fast. Many arcade type, games and some application programs 
written in TMS9900 assembly language actually require subroutines to waste time In order to slow them 
down! 

The statements which comprise a program written in a high level language such as Tl BASIC are merely 
the source of material from which a machine language program is generated. In assembly language, the 
program that you code is called the source program. The program which is assembled from your source 
code is called the object program. Since these are always saved on some device, they can also be 
called the source file and the object file. After your assembly language program has been assembled, It 
exists in two forms. The original source code remains unchanged while a new file containing the object 
code is created. (The Line-by-Line assembler, as the name implies, creates machine code when you 
enter the line. Thus, your source code is not saved as a separate file). 

In addition to the redundant interpretation of a BASIC language program during execution, there are 
other drawbacks as well. The BASIC language program needs a large and sophisticated "supporting 
cast" of hardware and software just to make it all work. This requires that a portion of the computer's 
resources be dedicated to that purpose and makes them unavailable to the program application. Tl 
BASIC is designed to be easily readable by humans. Common words, such as PRINT, FOR, NEXT and 
DATA are used, and statements may read like an ordinary sentence. This way of representing 
instructions and data to a human being is not necessarily the most efficient way to represent the same 
information to a machine. A relatively short BASIC program actually generates many times more 
machine instructions than the number of BASIC statements which comprise it. A single BASIC statement 
such as 

10 INPUT X 

requires many machine instructions to accomplish the stated task. The degree of complexity Involved in 
the execution of a BASIC statement is not apparent to the BASIC programmer. Some programmers feel 
that BASIC encourages people to generate programs which are not particularly efficient and which may 
be downright sloppy when compared to a really good assembly language program which accomplishes 
the same end result. Assembly language is not machine language. It is at a higher level than machine 
language but Is closer to machine language than BASIC. Because it is closer to machine language in its 
approach and style, it is always possible to write a much more efficient program in assembly language 
than in BASIC. 

Object code takes up far less space both in memory and on a storage device than source code would. A 
significant reduction in the number of bytes required to store and execute a program frees up more of the 
computer's resources and power for data storage and manipulation. With the Editor/Assembler module, it 
Is possible to produce object code which is in compressed format This even further reduces the object 
file size and storage requirements. As one might expect, any program that Is written shorter and simpler 
will run faster and use less memory. 

There are trade-offs, of course. In a high level language such as Tl BASIC you can write programs in 
simple, short, English statements which can tackle some rather complex tasks in a few lines. And, 
modifying those statements is simple because you do not have to re-assemble your program before 
running. You may simply type RUN to see the results of the change. With assembly language, while you 
may not have to code hundreds of instructions, you will have to code far more statements than in 
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BASIC. You will need to be much more specific and far reaching with your code. With TI BASIC, you 
were insulated from the actual workings of the computer. You did not need to know anything about how 
the computer actually did the things you told it You only had to know how to write the commands in 
BASIC. 

With assembly language programming, you have the computer at your disposal. You are in command. 
Consequently, you are required to tell the computer far more about each task to be perfonned. You will 
need to know a thing or two about the internal details of the computer. The amount of detail in an 
assembly program will always be greater than an equivalent BASIC program. Most of the subroutines 
and supporting programs you were accustomed to in TI BASIC and TI Extended BASIC are not there. 
You must devise and design your own routines as the need arises. This may seem like an inconvenience 
or nuisance, but actually it is indicative of the degree of power which is handed over to you in assembly 
language. You have the opportunity to use your creativity in designing any routines you might want You 
can customize many of the functions which are provided for you In BASIC. Of course it may be a while 
before you decide to write an assembly language program which taxes the very limits of your 99/4A, but 
the potential is there. 

Don't be afraid of assembly. It can seem ovenA/helming at first, but you will learn to appreciate what It 
can do for you. Because it places more of the power of the computer at your hand, more will be required 
of your skills as a programmer, but more will be delivered. The payoff comes in speed and performance 
as well as an increased knowledge and appreciation on your part of how your computer actually 
accomplishes the tasks you give it 

EDITOR/ASSEMBLER MANUAL REFERENCES 

The following references will provide you with some more information on the assembly process. 

Section 1.1, page 15 
Section 15.1, page 235 

Look up these temns in the glossary: 

Assembler 

^Assembling 

Assembly Language 

Compressed Object Code 

Machine Language 
^Object Code 
-Syntax 

Syntax Definition 
TMS9900 Microprocessor 
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CHAPTER TWO 

BINARY AND HEXADECIMAL NOTATION 

Before you can begin to program your computer in a low level language such as assembly, It 
is important to understand how your computer represents and processes Information. By 
knowing how your computer "thinks," you can orient your thinking, and therefore your 
approach to programming, toward a machine level. Actual machine language Is in the form of 
binary code. Binary refers to the numbering system on which computers are based— the 
binary, or base two, system. Some understanding of the binary number system Is necessary to 
program in assembly. 



Your computer could be thought of as a vast array of miniature switches, each of which may 
either be on or off. Each of these switches is referred to as a bit. The on/off status of a bit can 
be used to represent many things: yes or no, high or low, hot or cold, or the values one and 
zero. If a bit Is on, it represents a one, and If the bit Is off, It represents a zero, it Is, of course, 
because only two numbers are used (zero and one) that this system is called binary. If you 
were to consider a series of bits taken as a unit as a value expressed in binary form, large 
values could be interpreted from the on/off states of a series of bits. 



The numbering system you are used to is the decimal system, base ten. When representing a 
value with a decimal number, the numeric symbols actually represent powers of ten. Thus, the 
decimal number 2139 can be broken down as follows: 
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10 = 


1000 


2 


X 


1000 = 


2000 


2 












10 = 


100 


1 


X 


100 = 


100 


1 












10 = 


10 


3 


X 


10 


30 















10 = 


1 


9 


X 


1 


9 



2139 



The same rules apply to numbering systems with bases other than ten. If you are to deal with 
significant numbers, you will obviously need more than one bit to do it since a single bit can 
only represent 1 or 0. A byte is a series of eight bits taken as one unit. Sixteen bits is equal to 
two bytes, or one word. Here Is a byte, represented by eight numbers, each of which can only 
be a one or a zero: 



00001101 
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In a binary system, each position represents an exponential power of 2. Just as with any other 
numbering system, leading zeroes have no effect on the value of the expression, so just 
examine four bits on the right. These are sometimes called the low order bits, or the least 
significant bits. 



BIT VALUE 110 1 

PLACE VALUE EIGHT FOUR TWO ONE 

EXPONENT 3 2 10 

BASE 2 2 2 2 



The on/off states of these bits represent the value thirteen if taken as a binary number. Here is 
how you can represent this value as a decimal number: 



1x8 = 8 

1x4 = 4 

0x2 = 

1x1 = 1 

13 



What value does the following byte contain? 
00000110 ^ 

The answer Is six. Do you know why? How about this byte? 
01 1 1 1 1^' 

If you said fifteen, then you are catching on! How about this byte? 
00000001 

Well, one is still one, even In binary. 
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While binary notation applies readily to the on/off states of bits, writing all values In binary 
format can be quite cumbersome. Needing a shorthand for binary notation, programmers use 
base 16, or hexadecimal notation. Once again, each digit in hexadecimal notation represents a 
power of the base, which is sixteen. The exponent values with relation to the position of each 
hexadecimal numeral would be: 



PLACE VALUE 4096 256 16 1 

EXPONENT 3 2 10 

BASE 16 16 16 16 



Throughout your assembly materials from Tl, hexadecimal numbers are indicated by the 
greater -than symbol (">") Immediately preceeding the number. Consider the hex number 
>10. Using th^ exponent model above, the numeral on the right half of the number represents 
X 16 or zero. The next numeral would represent 1 x 16 or sixteen. Combining the two 
answers, 16 + = 16. Thus, >10 = sixteen. In the decimal system, ten symbols (0-9) are 
needed to express values. For the hexadecimal system, sixteen symbols are needed. Digits 
above 9 are represented by the first six letters of the alphabet (A - F). Thus, "A" represents 
ten, "B" represents eleven, etc. on up to "F" for fifteen. 



The value fifteen in binary would take up four digits: 1111. In hex, the value can be represented 
In Just one digit: F. Thus, a byte of data can be represented in hex with just two digits instead 
of eight binary digits. This is obviously a more efficient way to express values. Here are some 
examples: 



DECIMAL BINARY HEX 



1 


00000001 


>01 


2 


00000010 


>02 


3 


00000011 


>03 


4 


00000100 


>04 


5 


00000101 


>05 


6 


00000110 


>06 


7 


00000111 


>07 


8 


00001000 


>08 


9 


00001001 


>09 
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10 


00001010 


>0A 


11 


00001011 


>0B 


12 


00001100 


>0C 


13 


00001101 


>0D 


14 


00001110 


>0E 


15 


00001111 


>0F 


16 


00010000 


>10 


32 


00100000 


>20 


33 


00100001 


>21 



The largest value that can be represented with one byte (eight bits) is binary 11111111, hex 
>FF, or decimal 255. If you express a word (sixteen bits) as a binary expression, then the 
largest value of a word is binary 1111111111111111, hex >FFFF, or decimal 65,535. Even larger 
values can be accommodated by using two or more successive words. Whether a value is 
negative or positive can be of importance for most math and so some way of indicating a 
number's sign Is necessary. The sign of a 16 bit binary expression Is Indicated by the left bit. If 
this bit is off (zero), then the value represented by the remaining bits is positive, if that bit is 
on (one), then the value Is negative. The binary number represented by the sixteen bits 
0111111111111111 would be +32767. For numbers larger than 32,767 the left bit, or sign bit, 
would have to be used. To avoid conflict, numbers larger than 32,767 are represented as 
negative two's complement numbers. Two's complement is a handy way for the computer to 
deal with binary arithmetic. 



Suppose you wanted to compute 16 minus 10. The computer cannot actually subtract, so 
instead it has to perform two's complement addition. The value to be subtracted Is converted 
to two's complement format and added to the first value. This gives the same answer as 
subtraction would. Since this is logically the same as negating the second value and adding, 
the two's complement of a value is said to be negative. 



To tactile the problem above, examine the bit values before, after and during the two's 
complement arithmetic. Since both numbers are small enough, you can use one byte (eight 
bits) to represent each amount. 
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BINARY DECIMAL HEX 

VALUE #1 00010000 16 >10 

VALUE #2 00001010 10 >0A 



First, flip all the on bits to off, all the off bits to on for value #2. 

00001010 
becomes 11110101 

Notice that the left bit is now on, giving this value a negative sign. Next, add one to the result. 

11110101 
+ 1 



11110110 



Value #2 Is now In two's complement format. Now, add value #1 to value #2. 

00010000 
+11110110 



100000110 



Disregard the one bit on the left which has been carried over. The remaining bits, 00000110, 
equal six. Thus 16 - 10 = 6. The computer uses two's complement for negative values and 
for any value greater than 32,767. This is of importance to you when you wish to write 
addresses larger than 32,767 in decimal format In programs that access specific addresses. A 
very easy rule to follow is this: for any address larger than 32,767, subtract 65,536 from the 
address. For example, to place a value of 79 in address 33008, using the formula 33008 - 
65536 = -32528, the Tl Extended BASIC language code would lool< like this: 



10 CALL LOAD(- 32528,79) 
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This most likely will be your major use of two's complement notation, using decimal notation 
to express addresses larger than 32,767. Two's complement notation does not apply to hex 
notation. Hex notation handles values greater than 32,767 without any problem. 



Go over these examples and practice writing numbers in binary and hex notation. Write your 
age in each notation. Try any other familiar values. Remember the process Is the same for 
each numbering system. The only difference is the base power each numeral represents. 



If all else falls, there are special calculators that do hexadecimal as well as decimal arithmetic 
and that convert values from one base to another. One is made by Texas Instruments, and It is 
simply called "The LCD Programmer." 

Just like anything else, hex notation comes easier as you do more and more of It. TMS9900 
assembly language will allow you to express values In decimal format If you wish. However, 
because the internal representation of the computer is binary, hex notation most graphically 
reflects bit values. 



Here are four hexadecimal arithmetic problems. See If you can figure them out. 



1) >6800 2) >7402 3) >D066 4) >0FAB 
+ >029A - >0EF0 + >110C - >0A95 



? ? ? ? 



Remember, the greater -than symbol Is used here to denote that all the numbers are In 
hexadecimal notation. Since this is a base 16 numbering system, there are few differences 
between this and decimal arithmetic. The single most confusing thing to beginners of hex are 
the letters A through F which have taken the place of decimal numbers 10 through 15. Here Is 
an example of simple hex and decimal addition. 



HEXADEC IMAL DEC IMAL 



>9 


+ 


>1 


= >A 


9 


+ 


1 


= 10 


>A 


+ 


>1 


= >B 


10 


+ 


1 


= 11 


>B 


+ 


>1 


= >C 


11 


+ 


1 


= 12 


>C 


+ 


>1 


= >D 


12 


+ 


1 


= 13 
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>D 


+ 


>1 


= >E 


13 


+ 


1 


= 14 


>E 


+ 


>1 


= >F 


14 


+ 


1 


= 15 


>F 


+ 


>1 


= >10 


15 


+ 


1 


= 16 



Note that In the decimal format nine Is the number to which you can count before a one must 
be carried to the left and a zero inserted In the low order digit. In hex, this value Is fifteen (F), 
and a one Is carried over to represent sixteen, not ten. When subtracting in hex, sixteen is the 
value which is borrowed from the left, not ten. First, look at Problem #1. Notice that the 
numbers are added In columns from right to left, just as in decimal addition. 



>6800 
+ >029A 



= >6A9A 






+ 


A 


A 





+ 


9 


9 


8 


+ 


2 


A 


6 


+ 





= 6 



>6A9A 



Now, jump to Problem #3. In the right column, six plus twelve equals eighteen, so a one Is 
carried over to the next column to the left. The value of the one carried is actually sixteen, 
leaving two remaining (eighteen minus sixteen equals two). 



>D066 
+ >110C 



>E172 

MM 6 + C = 2 

Ml 

I I I 6 + carry value + = 7 

I I + 1 = 1 



D + 1 = E 



>E172 
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In Problem #4, subtraction works In a similar fashion. 



>0FFB 
- >0A95 



= >0566 

III B - 5 = 6 



eleven - five = six 



F - 9 = 6 



fifteen - nine = six 



F - A = 5 



fifteen - ten = five 



>0566 



Moving back to Problem #2, examine how the subtraction works. In the second column from 
the right (zero minus fifteen), a one must be borrowed from the next column to the left. This 
borrowed value Is sixteen, which makes the second column sixteen minus fifteen, which of 
course is one. After the value is borrowed, the third column from the left becomes three minus 
fourteen (>3 - >E). Again, a one must be borrowed from the column to the left This adds 
sixteen to the value of 3, making It nineteen. Nineteen minus fourteen (>13 - >14) equals 
five. In the left column, because of the borrowed value, the operation has become six minus 
zero, which of course is six. 



>7402 
- >0EF0 



= >6512 



I 

I - F 



4 - borrowed value 
+ carry value - E 

7 - borrowed value - 




>6512 
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with a little practice, you will find that hexadecimal arithmetic is just as easy as decimal. 
Once you become accustomed to using hex, it will become second nature. It will come in very 
handy, because this way of representing bytes and words of data tells you a lot about the 
status of various bits In a short space. Tal<e time now to write down a list of numbers in hex 
and add and subtract them. 



EDITOR/ASSEMBLER MANUAL REFERENCES 

The following references will provide you with some more information on binary and hex- 
adecimal notation: 

Appendices 

Section 24.1 page 393 through Section 24.1.4 page 397 

Look up these terms in the glossary: 

ASCII 
Binary 
Bit 
Byte 

Hexadecimal 

Hexadecimal Integer Constant 
Nybble 

Two's Complement 
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CHAPTER THREE 
ADDRESSING 

Recall for a moment the conceptual model of the computer as a vast array of switches. This 
array is analogous to a city street map of buildings, blocks, streets, intersections, and entire 
communities. To manipulate the bits and bytes of data in the computer, you must "map" the 
computer's resources by designating certain "communities" and assigning addresses to these 
areas and to individual bytes within these areas. 

Later, you will see various ways to specify addresses in assembly programs. A majority of the 
program steps you will need to code will involve the movement of data from one area to 
another or the manipulation of a particular bit, byte, or word. The computer expects you to 
specify the exact location of the area you wish to access either directly or indirectly. All the 
possible areas of the computer are numbered to uniquely indentify each one. The number by 
which the computer locates each byte is its address. 

In assembly language programming, a method called base plus displacement addressing is 
used to calculate and notate internal addresses. Given a known base address, you need only 
figure the amount of offset, or displacement, needed to arrive at the desired address. 

When counting bytes, start with zero as the address of the first byte. Zero is the first positive 
number to the computer, so always begin counting at zero, not one. Consider a particular area 
of memory, VDP RAM (Video Display Processor Random Access Memory). In VDP RAM, the 
first byte (byte zero) represents the first available screen position. In Tl BASIC, this would be 
row 1, column 1. One byte represents one character. For example, if the zero byte of VDP RAM 
contained the value >41 (decimal 65), the letter "A" would be displayed at row 1, column 1 of 
the screen. Hex >41 or decimal 65 is the ASCII code for the letter "A." It is by placing the 
correct values into this area of VDP RAM that symbols and graphics are made to appear on 
the screen. Most of the functions you will want the computer to do will involve placing certain 
values into specific areas of the computer. 

The area in VDP RAM referred to is the Screen Image Table. There are 768 bytes here which 
represent ail of the available screen positions (24 rows x 32 columns = 768). The 
corresponding addresses within VDP RAM are through 767 decimal, or >0000 through 
>02FF hex. In order to make assembly language coding more readable and understandable, 
addresses do not have to be coded by their numeric values. Instead, you can associate some 
meaningful name, or label, with the address. Whenever you refer to this label, the assembler 
will translate it to mean a certain address. This can be done with the EQUate statement. 

In TMS9900 assembly language, labels may be up to six characters in length. Establish a label 
for the first byte of the screen image table. Call the address in VDP RAM where the screen 
image table begins "SCRTAB." This is an assembly language instruction to do that: 



SCRTAB EQU >0000. 
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Now you may refer to the first byte as simply SCRTAB, or SCRTAB + 0, where +0 represents a 
displacement value. Adding +0 to SCRTAB would not change the value of the symbolic 
address SCRTAB. If you wrote a 7 digit number across the top of the screen, It would occupy 
VDP RAM addresses SCRTAB + 0, SCRTAB + 1 , SCRTAB + 2, SCRTAB + 3, SCRTAB + 4, 
SCRTAB + 5, SCRTAB + 6. Notice that In displacement values the first seven bytes of VDP 
RAM are through 6. To address the last possible screen position (row 24, column 32) you 
could use the notation SCRTAB + 767. Often an address needed must be calculated from some 
base address and some displacement value. If the number above was 5551234 then the byte 
values In hex would be: 



Symbolic Byte VDP RAM Character 

Label Base Displacement Value Relative Represented 

Address Value Hexadecimal Address by Byte Value 



SCRTAB 
SCRTAB 
SCRTAB 
SCRTAB 
SCRTAB 
SCRTAB 



+ 

+ 1 

+ 2 

+ 3 

+ 4 

+ 5 



SCRTAB + 6 



>35 



>35 



>35 



>31 



>32 



>33 



>34 



>0000 
>0001 
>0002 
>0003 
>0004 
>0005 
>0006 



"5" 
"5" 
"5" 

"2" 

"3" 



If you describe to the computer an algorithm for calculating addresses using a base address, 
you can have a program that can "find Its way around" without you having to define in 
advance any of the internal areas needed. Simply put: NEW ADDRESS = BASE ADDRESS + 
DISPLACEMENT. 

Some diagrams and examples in the TMS9900 assembly reference materials breal< down 
individual bytes in order to show the status or importance of each of the eight bits. You will 
notice that the bits are numbered 0,1,2,3,4,5,6,7. If a full word (two successive bytes, 16 bits) is 
brol<en down then the bits are 0,1, 2,3,4,5,6,7,8,9, A, B,C,D,E,F. This Is another application of the 
practice of always counting from zero. Remember, when you are addressing areas of the 
computer, displacement values count bytes, not bits. 
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The notation SCRTAB + 2 refers to a byte with an address 2 bytes away from the byte SCRTAB. 
Remember that in assembly language programming, zero is a number that always represents 
the first of a series when used In the context of addressing or position. If you have done any TI 
BASIC coding with relative files, you will recall that the first record on a relative file is always 
the zero record. With the DM statement for table definition, you may have used the Option 
Base parameter. This establishes zero as the first susbscript of an array. These are counting 
schemes similar to base plus displacement. 



EDITOR/ASSEMBLER MANUAL REFERENCES 

The following references will provide you with more information on addressing. 
Appendices 

Section 24.2 page 398 through Section 24.2.2 page 402 

Look up these terms in the glossary: 

Addresses 

Addressing Mode 

Console 

CPU 

Memory 

RAM 

ROM 

Symbolic Memory Addressing 
VDP RAM 



Memory maps can be found in the Editor/Assembler manual and the Mini-Memory manual. 
Here Is another view of the architecture of the TI-99/4A that may help you In visualizing the 
various memory locations. 
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TMS9900 CPU MEMORY 

>0000 >2000 >4000 >6000 >8000 >A000 

Console Memory Device Command CPU PAD Memory 

ROM Expansion Service Module Memory Expansion 

Operating "Low" RAM Routines ROM/RAM Mapping "High" RAM 

System ROM Mini- | (24K bytes) 

GPL Memory j 



Interpreter I 
BASIC I 
Interpreter I 

MEMORY MAPPED PORTS 



>8000 >8300 >8400 >8800 >8C00 >9000 >9400 >9800 >9C00 

768 256 Sound VDP VDP Speech Speech GROM GROM 

Byte Byte | Read Write Read Write Read Write 

Block CPU PAD I II II II 

III I I i I 



TMS9919 TMS9918A Video TMS5200 GROM 

Sound Display Processor Speech 

Chip Synthesizer >0000 

VDP RAM (16K) 3 Console 

Vocabulary GROMs 

>0000 Screen ROM containing 

Image (32K bytes) Monitorr 
>0300 Sprite Operating 

Attribute System and 

>0380 Color BASIC 
Table >4800 
>0400 Sprite 5 Command 

Descriptor Module 
>0780 Sprite GROMs 



Motion 
>0800 Pattern 

Generator 
>1000 Free Space 

PABs/Buf f ers 
>3500 Disk DSRs 
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CHAPTER FOUR 
REGISTERS 

A register is a specially designated word (16 bits, 2 bytes) of storage whicli has special powers 
and responsibilities. There are 16 general workspace registers available to the Ti\^S9900 
assembly programmer. These general workspace registers are numbered through 15. 
Registers are the CPU's workspace or scratchpad. They are used for arithmetic, addressing, 
and bit manipulation. They do special tasks that other available areas of the computer cannot. 
The general workspace registers always occupy a contiguous area of storage with a total 
length of >20 (decimal 32) bytes (each register = 16 bits, or 2 bytes; 16x2 = 32). Other 32 
byte blocks of storage may be designated by your program to be used as general workspace 
registers as well. Only one set of sixteen may be used at any one time. 



If you are using the Editor/Assembler module, choose option "R" at assembly time. This will 
automatically label the sixteen general workspace registers RO through R15. If you are using 
the Line-by-Line assembler, these symbols are pre-defined. You may also refer to these 
registers by their numbers (0,1,2,3, etc.). Most people find it far less confusing to stick with the 
symbols R0,R1,R2,R3,etc. 

While registers are special in their uses and functions, their makeup is Identical to other 
storage areas. Each register is a series of 16 bits with on/off states that represent some value 
in binary format. The hexadecimal notation for the contents of a register is given as four digits 
(16 bits, 1 hex digit per 4 bits), I.e. >0020. 

In addition to the general workspace registers there are three hardware registers used by the 
computer to manage the computer and the program while it is running. These registers keep 
track of such things as the address of a subroutine, data or other resources needed by your 
program, the location of the next instruction to be executed, the resulting status of the last 
instruction executed, and the beginning address of the general workspace registers. The 
values contained in these hardware registers will be important to you when designing your 
assembly language program. 

The program counter register (PC) keeps track of a program's instruction set. The values in 
this register are used in conjunction with other address data to locate or "point to" the next 
Instruction in your program. When your program is run by the computer, all the information 
contained in it is stored in memory. The address in storage which contains the binary code 
representing each program instruction is managed by this register. As program instructions 
are executed, this register is incremented to always point to the address of the next logical 
instruction. 
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PROGRAM COUNTER REGISTER (PC) 



HARDWARE 
REGISTERS 



PROGRAM INSTRUCTION SET 
RESIDING IN MEMORY 



TMS9900 



MEMORY 



I P.C. I 



I I 
I W.P. I 

I I 



I ST. I 

I I 



\ 
\ \ 
\ \ 
\ \ 
\ ~> 



1 INSTRUCTION 


1 1 


1 INSTRUCTION 


2 1 


1 INSTRUCTION 


3 1 


1 INSTRUCTION 


4 1 


1 INSTRUCTION 


5 1 



INSTRUCTION 6 



PROGRAM 



\ 
I 
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The workspace pointer register (WP) contains tiie address pointing to tiie beginning address of 
ttie 16 generai wori^space registers. Multiple sets of worlcspace registers can be defined, and 
eacii set can be accessed by program manipulation of ttie address contained in this register. 
This can be especially useful when subprograms are called by your program which need their 
own registers. 



WORKSPACE POINTER REGISTER (WP) 



HARDWARE 
REGISTERS 



PROGRAM INSTRUCTION SET 
AND WORKSPACE REGISTERS 



TMS9900 



MEMORY 



I P.C. I 



I I 
I W.P. 1 

I I 



I ST. I 



\ 



\ 



PROGRAM 1 


WORKSPACE " 


A" 1 


R0 Rl R2 


R3 1 


R4 R5 R6 


R7 I 


R8 R9 R10 


Rill 


R12 R13 R14 


R15i 


WORKSPACE " 


B" 1 


R0 Rl R2 


R3 ! 


R4 R5 R6 


R7 1 


R8 R9 R10 


Rill 


R12 R13 R14 


R15I 



22 



Introduction to Assembly Language 



The status register records the status of the last instruction executed. The individual bits are 
set (1), or cleared (0) to Indicate certain conditions as each Instruction executes. Your program 
code will refer to this register either directly or indirectly quite often. Suppose you wanted to 
compare value X and value Y. Immediately after the computer executed the compare 
instruction, the status register would indicate by the status of its bits some relation: 



STATUS REGISTER (ST) 



BIT 
POSITION 


MEANING IF SET (1) 





LOGICAL GREATER THAN 


1 


ARITHMETIC GREATER THAN 


2 


EQUAL 


3 


CARRY 


4 


OVERFLOW 


5 


ODD PARITY 


6 


EXTENDED OPERATION 


7-11 


NOT USED 


12 - 15 


INTERRUPT MASK 



The status register can let you know if two values are equal or give evidence of many other 
conditions. Arithmetic operations treat all bytes as representing an arithmetic value. Logical 
operations treat bytes as representing a series of bits. Various instructions available to you In 
assembly language will allow you to instruct the computer as to how you wish the contents of 
a byte to be evaluated. Use of the status register will be covered In other chapters dealing with 
actual coding. 

Some assembly language instructions only apply to registers or are required to involve at least 
one register. The transfer of data to and from special subprograms is accomplished through 
certain registers as is the movement of data to and from special areas of the computer. 
Special addressing calculations and indexing are possible with registers. The three hardware 
registers and the sixteen general workspace registers do the majority of the "number 
crunching" and assist In almost every other phase of data handling and management. 

Various manufacturers of computers and assembly languages offer differing numbers of 
workspace registers. Some only have three, some eight, sixteen, or thirty-two. You may never 
write a program which needs to use all sixteen registers of the TMS9900, but the potential is 
there. Registers are a component of the microprocessor and are designed Into the processor's 
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instruction set. it is more efficient and much faster for tiie microprocessor to operate on its 
registers tiian to use a more distant address in memory. 



EDITOR/ASSEMBLER MANUAL REFERENCES 

The foiiowing references wili provide you with some more information on registers: 

Section 3.1 page 39 through Section 3.1.3 page 40 

Looi< up these terms in the giossary: 

Arithmetic Greater Than Bit 
Carry Bit 
Equai Bit 

Logicai Greater Than Bit 
Odd Parity Bit 
Overfiow Bit 

Program Counter Register 
Register 
Status Register 
Worl<space 

Worl<space Pointer Register 



IMPORTANT: Before proceeding to the next section of this bool<, go to the 
EDiTOR/ASSEIVIBLER IV1ANUAL REFERENCES at the end of Chapter Five. Read over the 
recommended pages and glossary terms. Then read the chapter, then read the manual 
references again as needed. 
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CHAPTER FIVE 
CODING 

To put the theory covered so far to use, you will learn to code an assembly program. But first, take time 
now to read the Editor/Assembler manual references at the end of this chapter. When you have done 
that, look at this simple program written in Tl BASIC. Examine each Tl BASIC statement while bearing in 
mind what has been discussed in the preceding sections. 

10 CALL CLEAR 

20LETAMTX=10 

30 LET AMTY=33 

40 LET AMTY=AMTX+AMTY 

50 PRINT AMTY 

60 END 

10 CALL CLEAR. This will clear the screen of any characters currently displayed. The Tl BASIC program 
is "calling" a resident Tl BASIC subprogram with the name "CLEAR." This routine will do all the things 
necessary to clear the screen then return control to the next instruction In the Tl BASIC program. The' 
next instruction is in line 20. 

20 LET AMTX=10. Reserve a storage space in memory to be referred to by the label "AMTX". Then 
initialize "AMTX" to an arithmetic value of 10. 

30 LET AMTY=33. Set aside another storage space. Give this space the name "AMTY". Initialize 
"AMTY" to an arithmetic value of 33. 

40 LET AMTY=AMTX+AMTY. Take the sum found by adding the value at address "AMTX" to the value 
at address "AMTY" and place it at the address "AMTY". 

50 PRINT AMTY. Display the value stored at address "AMTY" on the screen in ASCII symbols. The 
actual screen location of this display has been predetermined by Tl BASIC as the lower left comer of the 
screen. 

60 END. Return control of the computer to the operating system. 

As you can see, there are many things that the computer must do to execute each Tl BASIC statement 
Few of the details about these tasks have been spejled out. The BASIC interpreter and the rest of the 
"supporting cast" have taken care of all that In an assembly language program, you will need to be 
much more exact In telling the computer about its tasks and how it is to perfonn them. 

Try coding an assembly program to do the same thing as the BASIC program above. Each assembly 
statement has three major parts: a label, an op-code or instruction and one or two operands. Recall the 
previous assembly statement example: 

SCRTAB EQU >0000 

"SCRTAB" is the label. The label starts in the first position of the line and can be up to six characters In 
length (2 characters with the Une-by-Line assembler), and the first character must be alphabetic. The 
label is an option and is not always needed. The op-code is separated from the label by at least one 
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space. The op-code is the actual program instruction. The operand field is separated from the op-code 
by at least one space. There may be one or two operands, if there are two, they must be separated by a 
comm& The operand field identifies the register or other address that the instruction (op-code) is to 
operate on. When comments are needed, they may begin at least one space to the right of the last 
operand. By beginning a new line with an asterisk {*), an entire line can de devoted to comments. 

Here is the TMS9900 assembly language code written with the Editor/Assembler package. The "ruler" 
numbered 1 through 50 represents columns and is included here to illustrate the relative position of each 
field. (The Mini-Memory example is listed toward the end of this chapter. Instructions for loading and 
running the program appear in the next chapter.) \jook over the following sample program. 





I 


.— 1 CI— 


2 0~~~"~- 
















START 
o X m\ X 






REP 


VSBW. VMBW 




STATUS 


EOU 


>837C 


V** 


SAVRTM 


DATA 


>0000 


tOD 


AMTY 


DATA 


^ W tun 


vo 


Arl 1 X 


HATA 


^ 10 10 ZX 


01*7 


npr'TPN 

UCi\* 1 Eivi 


DATA 
Un. Xr\ 


SCiCllTiA 


CIQ 
\DO 




FiATA 




CIO 


DMT AKTC 


DOO 


£. 


1 (A 






^ £.10 


11 


CPA DT 




WD JrrvCiO 


IZ 




MOW 


mi flSAVRTN 


lo 




nr 

O Li 


opr PAR 


1 A 
14 


AUUUsr 


A 
t\ 




15 




MOV 


@AMTY,R5 


16 




CLR 


R4 


17 




DIV 


@DECTEN,R4 


18 


MASKUP 


A 


@HEX30,R5 


19 




MOV 


R5,@PNTANS 


20 




MOV 


R4,R5 


21 




CLR 


R4 


22 




DIV 


(aDECTEN,R4 


23 




A 


@HEX30,R5 


24 




SLA 


R5,8 

R5,@PNTANS 


25 




MOVE 


26 


PUTUP 


LI 


R0,738 


27 




LI 


RlyPNTANS 


28 




LI 


R2,2 


29 




BLWP 


@VMEW 


30 


EOJ 


MOV 


@SAVRTN^R11 


31 




CLR 


R0 


32 




MOVE 


R0^@STATUS 


33 




RT 




34 


CLEAR 


CLR 


R0 
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35 

36 LOOP 



CLR Rl 

BLWP @VSBW 

CI R0,767 

JEQ CLEARX 

INC R0 

JMP LOOP 

B *R11 
END 



37 
38 
39 
40 



41 CLEARX 
42 



Do not be alarmed by the sheer number of statements. Assembly languages are always more "wordy" 
than high level laguages such as BASIC. Each line will be dissected and explained along with many 
useful commands along the way. Many of the statements in an assembly language program are required 
entries and show up in program after program. Once you have written several assembly language 
programs, they become redundant. As you learn to design your own subroutines, they can be used in 
any other program without having to "go back to the drawing boards" and re-invent them. For all their 
apparent complexity, ail assembly operations are but constant variations on the principles of bits and 
bytes, addressing, registers, binary arithmetic, and so forth. 

The program was written in a simple manner to demonstrate specific program functions with which you 
are familiar. The program could have been written shorter and "slicker," but then who needs a program 
just to find the answer to 10+33?! Here is the assembly program: 



Une 01 DEF START 

DEFine is an assembler directive. A directive is an instruction to the assembler, which is needed for 
proper assembly of the program. It has no impact on the logical execution of the program. The DEF 
directive has the effect of placing the name given ("START") into an area In the computer known as the 
REF/DEF table. Here are kept the names of all programs which are currently in memory. The DEF 
directive insures that when your program is loaded, its name will be added to the REF/DEF table. When 
you RUN your program, this is where the RUN software looks for your program name. 

"START" is the symbolic address of the point at which program execution commences. The DEF 
directive must precede the label it defines. The most common practice is to simply make it the first 
statement in your program. The label used can be any valid label; "START" is Just the one used in this 
program example. 

Line 02 REF VSBW,VMBW 

The REFerence directive tells the assembler that you intend to use some special resident programs. The 
REF directive also accesses the REF/DEF table. This directive insures that when your program is loaded 
these routines will be available to it. VSBW will be equated with the address of the VDP RAM Single 
Byte Write routine. VMBW will be equated with the address of the VDP RAM Multiple Byte Write routine. 
These are routines used to display graphics and characters on the the screen. They are just two 
members of the TMS9900 assembly language "supporting cast" 
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Line 03 STATUS EQU >837C 



This is an EQUate statement. EQUates are also directives. The address is that of the status byte. You 
will need to refer to the status byte in your program, referring to the actual address by the symbolic label 
"STATUS." The EQUate directive associates the given label with the actual address of >837C. The 
actual address along with the symbol "STATUS" is loaded during the assembly process into an area 
called the symbol table. The assembler uses the symbol table to find the actual address meant whenever 
you use any symbolic label, such as "STATUS." You must define these relationships between machine 
addresses and their symbolic names with the EQUate directive. 



04 SAVRTN 

05 AMTX 

06 AMTY 

07 DECTEN 



DATA >0000 
DATA >000A 
DATA >0021 
DATA >000A 



These lines use the DATA directive. This directive is used to initialize a word (16 bits, 2 bytes) of 
memory to some value. If a label is included, that label is associated with the beginning address of the 
word. 



The label represents a symbolic address. The operand contains the value that the word is to be set to. 
The value may be written in decimal or hexadecimal notation. By using symbolic addresses whenever 
possible, you do not need to keep track of actual address values. The labels you devise should always 
be of mnemonic (aiding the memory) value. Your program will be more readable and understandable if 
the labels picked say something about what they define. 



AMTX DATA >000A roughly equals LET AMTX=10 
AMTY DATA >0021 roughly equals LET AMTY=33 



A similar directive is the BYTE directive. The statement MYBYTE BYTE >04, intitializes one byte (8 bits) 
of memory. The effect of DATA and BYTE are similar; the only difference is the number of bits which are 
initialized (8 vs. 16). The Line-by-Line assembler does not recognize the BYTE directive. 



09 PNTANS BSS 2 

10 WSPREG BSS >20 



Lines 9 and 10 use the Block Starting with Symbol (BSS) directive. This reserves blocks of memory 
without any initialization. These areas will be used as workspace by the program and will be part of the 
program. In line 9, two bytes of memory have been reserved. They will be referred to as "PNTANS." Line 
10 sets aside 32 (>20) bytes called "WSPREG." 

The first quarter of this program has been covered, and no instruction has been performed. All that has 
been done so far might be thought of as housekeeping, things that must be done in preparation. When 
coding Tl BASIC statements, you could define variables in the same statement in which they were first 
used. Not so in an assembly language. You must define all labels and workspace areas before you can 
refer to them in any program statement Deciding your program's housekeeping needs means planning 
and forethought. 

Une 11 START MOV R11,@SAVRTN 

Here is the label "START" that was defined In line 1. The first order of business Is to save the entry 
address of the program. Register 11 is the computer's general purpose linkage (addressing) register. 
When your assembly program begins execution, the address to which your program should return when 
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done is in R11. This address is vitai to successful program completion. You want to save that address 
since R1 1 will be used elsewhere in the program. The word of memory called SAVRTN was set aside 
Just for this purpose. MOVe the value In R11 to the storage location. The address is a symbolic address, 
which is represented in a MOVe instruction by the "at" symbol (@). The MOV operation copies a word 
(16 bits, 2 bytes) of a register or other address in memory to another register or address. The sending 
storage location remains unchanged, while the receiving storage location becomes its clone. Suppose 
R11 contains the address value >3238. Before the MOV instruction: 

Rll @ SAVRTN 

>3238 >0000 

After the MOV: 

Rll QSAVRTN 
>3238 >3238 

Note that the entire word (16 bits, 2 bytes) is affected. Suppose that you only needed to move one byte 
(8 bits) at a time. Then the MOVB (Move Byte) instruction can be used. Throughout TMS9900 assembly 
language you will find parallel instructions which address either one word (16 bits) at a time or one byte 
(8 bits) at a time. If you use a byte instruction with a register or other full word address, the instruction 
always uses the left byte (high order byte). For example: 

MOVB R3,R4 

Suppose that the contents of the registers involved before the instruction was executed were: 



R3 R4 
>104C >0011 
Then after the MOVB: 

R3 R4 
>104C >1011 



Notice that the right byte (low order byte or least significant byte) is unaffected In either register by the 
MOVB instruction. 



Une 12 LWPI WSPREQ 

Now you Load Workspace Pointer Immediate (LWPI). You need to establish an altemate area of 
worl<space registers for use by special routines that are needed. They can have their own set of general 
workspace registers. The effect of this statement is to point to the address of the block of memory that 
was defined in line 10. This is a statement you will typically need in any stand-alone TMS9900 assembly 
language program. 
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Une 13 BL ©CLEAR 

Instead of calling a resident routine to clear the screen, this program has its own routine coded. The 
Branch and Link (BL) instruction is roughly equivalent to the GOSUB with RETURN you have seen in Tl 
BASIC. Control is passed from this point in the program to the address CLEAR, and once again the 
return address (address of the next sequential instruction) is loaded into R11. When coding Tl BASIC 
statements, you had to GOTO line numbers, and sometimes resequencing could be disastrous if you had 
an unresolved line number. One of the niceties of using labels is that line numbers have no affect on 
program logic. CLEAR refers to the beginning address of the CLEAR subroutine no matter what line 
number it is on. R11 now contains the address of line 14. That is where you want to return to when you 
have finished the CLEAR routine. Program execution now transfers to: 

Line 34 CLEAR CLR R0 
35 CLR Rl 

"CLEAR" is the label to which you have instructed the computer to branch. The first step of the CLEAR 
routine is to set all the bits in registers RO and Rl to zeroes. The CLR instruction clears (sets the bits to 
all zeroes) a word of memory or a register at a time. RO and Rl now contain: 



R0 Rl 
>0000 >0000 
Line 36 LOOP BLWP @VSBW 



Now you can begin to "fiddle with" the video display processor chip. The label LOOP will be used to 
build a simple loop much like a FOR-NEXT loop in Tl BASIC. A loop allows you to execute one 
instruction many times. 

The instruction BLWP is like the branch and link except that this time you want the workspace pointer 
register (WP) to point to the alternate workspace registers established at line 11. This is required of the 
VSBW and other resident routines. BLWP stands for Branch and Load Workspace Pointer. The address 
to which program execution branches is the address of the VDP RAM Single Byte Write routine. You can 
pass values to this program via RO and Rl. Into RO you put the destination address in VDP RAM to 
which you want to write. Place the single byte of data into the left byte of Rl. 

Cun-ently RO and Rl contain all zeroes. Remember that VDP RAM address zero corresponds to row 1, 
column 1 of the screen and RO addresses VDP RAM. The VSBW routine has written to this address the 
left byte (8 bits) of Rl (all zeroes). What will be displayed at row 1, column 1? Nothing I Then, if you add 
1 to the value in RO and repeat this step, VDP RAM address 01 (row 1, column 2) is cleared. There are 
768 screen positions to be cleared. These VDP RAM addresses are through 767 decimal, or >0000 
through >02FF hex. Thus, by looping through these steps until RO has been incremented to a value of 
767, the entire screen can be cleared. The next statement checks RO for this value. 



Line 37 
38 



CI R0,767 
JEQ CLEARX 
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Line 37 is a Compare Immediate (Ci) instruclion. Tiiis is used to compare the value of a register to a 
known value. As a result, the bits in the status register are affected and are tested by the next line. In 
addition to comparing registers to known values, there are compare instructions for word to word 
comparisons and byte to byte comparisons. 

The Jump if EQual (JEQ) instruction completes the comparison by directing some action based upon the 
result This instruction checks the status register's equal bit and, if it is set, transfers control to the label 
CLEARX. Jump instructions are like short range branch or GOTO instructions. The addresses they use 
must be within 256 bytes of the instruction itself. If the difference is too great, the error "Out Of Range" 
appears during assembly. Jump instructions do not need the "@" prefix on symbolic addresses. The first 
time through this loop, the equal condition is not true and the JEQ instruction at line 38 has no effect on 
program execution. 

Line 39 INC RO 

INCrement the value in RO by binary 1. Remember this value is being used as an address in VDP RAM. 
Each time through, you increment that address by 1. The INC instruction will increment (add a binary 1 
to) the register or word of memory specified in the OPERAND. There is also an INCT instruction which 
will increment by 2. 

Line 40 JMP LOOP 

41 CLEARX B *R11 

Line 40 is an unconditional jump to the label LOOP which completes the loop described above. When a 
value of 767 is reached in RO, program execution transfers to line 41, CLEARX. This instruction is an 
unconditional branch (like a GOTO) to the address in R11. The use of the asterisk {*) immediately 
preceding the named register indicates that the value in R1 1 is to be used as an address. The BL 
instruction at line 13 put the address of line 14 into R11 before the subroutine CLEAR was performed. 
You are now instructing the computer to branch to the address in R11, which is the address of line 14. 

Une14ADDUP A @AMTX,@AMTY 

The label ADDUP helps you remember what this step does. The contents of the word (16 bits, 2 bytes) 
at symbolic address AMTX is added to the value at address AMTY. Both addresses require the @ prefix 
for this step. 

Before the Add: @AMTX @AMTY 

>000A >0021 33 

+ >000A + 10 



After the Add: >000A >002B = 43 



Now the answer (43) is at AMTY. But the value in AMTY is a binary value, not the correct ASCII code 
for representing the characters "43" on the screen. You need to display a >34 (the ASCII code for the 
symbol "4") at one screen position and >33 (ASCII for "3") at the very next screen position in order to 
display "43". The next series of instructions will convert the answer to its displayable format 
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Line 15 MOV @AMTY,R5 

16 CLR R4 

Registers 4 and 5 will be used for the arithmetic needed. The answer (still In binary fomriat) is moved to 
R5 and R4 is cleared. 

Une17 DIV @DECTEN,R4 

The Divide instruction does just that, divide. DIV uses two successive registers, in this case R4 and R5. 
You only need to specify R4 in the second operand since the use of the next available register (R5) Is 
Implied. The first operand @DECTEN is the divisor. This statement will divide the value In R5 by the 
value at DECTEN and put the answer In R4 and any remainder Into R5. Before the DIV: 

@DECTEN R4 R5 

>000A >0000 >002B 

After the DIV: >000A >0004 >0003 

In decimal, this would be the same as 43 divided by 10 equals 4 with a remainder of 3. 
Une 18 MASKUP A @HEX30,R5 

This Adds the value at HEX30 to the value in R5 and puts the answer Into R5. Before line 18 is 
executed, R5 contains >0003, a binary three. The ASCII code for a displayable "3" is >33. The 
difference between this and the answer is >30 (>33 minus >03 = >30). This >30 or HEX30 "mask" 
must be added to the binary value to make It a proper ASCII numeral. Before the Add: 

@HEX30 R5 
>0030 >0003 
After the Add: >0030 >0033 

R5 now contains the ASCII code for "3". This is the first digit of your displayable answer. 
Une 1 9 MOV R5,@PNTANS 

Save this much of the answer In the area which was set aside at line 9, PNTANS. This Is a full word 



move, 16 bits. Before the MOV: 

R5 @ PNTANS 
>0033 >0000 
After the MOV: >0033 >0033 
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Line 20 MOV R4,R5 

21 CLR R4 

22 DIV @DECTEN,R4 

23 A |aHEX30,R5 



In lines 20 through 23 the process is repeated for the second digit of the answer. When 43 was divided 
by 10 at line 17, the answer 4 was placed in R4. The answer of 4 is divided again by 10. To do that, you 
need to place it in R5 and set R4 to all zeroes. Four divided by 10 yields an answer of zero with a 
remainder of 4. The remainder Is placed into R5 to which a >30 mask Is added. In this type of 
conversion logic, you are operating on the remainder in R5. R5 now contains >0034 (the ASCII code for 
"4"). 

Line 24 SLA R5,8 

25 MOVB R5,@PNTANS 

Now you have the "4" portion of the "43" you wish to display. The next step is to move it to PNTANS 
and match it up to the "3." Since you do not want to destroy the "3" now at PNTANS, a byte-sized move 
would be better than a word-sized move. Remember that byte Instructions always operate on the left 
byte. R5 contains >0034, which means that the value to move is In the "wrong" byte. (There are many 
approaches to all this and the method used here is contrived to illustrate instruction usage). One way to 
approach this is shown in line 24. This is a SHIFT Instruction and Is one of the special things that only 
registers can do. The particular Instruction used is the Shift Left Arithmetic (SLA) Instruction. Line 24 
specifies that the bits In register five are to be shifted to the left 8 positions and that the right side of the 
register be filled with zeroes Here are the contents of R5 broken down into Individual bits shown before 
and after the SLA is performed: 

Before the SLA: REGISTER FIVE - BINARY HEX 

BIT 0123456789ABCDEF 



VALUE 0000000000110100 >0034 



< SHIFT 8 PLACES 

After the SLA: 

0011010000000000 >3400 



Before the MOVB: 



After the MOVB: 



R5 
>3400 
>3400 



@ PNTANS 

>0033 

>3433 



Line 26 
27 
28 
29 



PUTUP 



LI 
LI 
LI 



R0,738 
Rl, PNTANS 
R2,2 



BLWP @VMBW 
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Lines 26 through 29 use the VDP RAM Multiple Byte Write (VMBW) subroutine to display the final 
answer. Lines 26, 27, 28 use the Load Immediate (LI) instruction. LI is used to place values into registers. 
Like the Compare Immediate instruction, LI is used with specific values. The first operand names a 
register, the second, the value. RO is loaded with the VDP RAM address of the desired screen position. 
R1 is loaded with the address (symbolic or real) of the data to be moved (not the data itself, but the 
beginning address of where the data is to be found.) Into R2 is loaded the length in bytes of the data to 
be moved. The branch to the subroutine places >343^, found at address PNTANS, at VDP RAM 
address 738 (lower left comer of the screen). VDP RAM address 738 contains >34 (ASCII for "4") and 
VDP RAM address 739 contains >33 (ASCII for "3"). 



Line 30 EOJ MOV @SAVRTN,R11 

31 CLR @ STATUS 

32 DECT Rll 

33 RT 



These lines complete the program. Line 42, the END directive, is a required entry and instructs the 
assembler that this is the end of the source code. If the label START were included as an operand of the 
END directive (and you are using the Editor/Assembler package): 

42 END START 

then this program would begin to execute as soon as it is loaded. Depending on the application for 
which an assembly program is written, this may, or may not, be suitable. 

In line 30 the return address which was saved in @SAVRTN is MOVed to R11. Line 31 CLeaRs (sets to 
all zeroes) the word of memory at address >837C. Address >837C is the address of the GPL 
(Graphics Programming Language) status byte. You are in effect telling the computer's operating system 
that everything is okay by clearing this location. 

Line 32 DECrements by Two the value in R11. DEC and DECT are just the opposite of INC and INCT. 
They subtract by 1 and 2 respectively. By branching to an address which is 2 less than the entry point 
address, the computer will "freeze" the displayed answer and will not do anything else until Quit (FCTN 
=) is pressed. Altering the return address in this way is not really the proper way to end your program. 
At some point, try this program without the DECT R11 instruction at line 31, and you'll see how 
incredibly fast TMS9900 assembly language is. The screen will barely blink as the program runs and 
ends. 

Line 33 uses the RT instruction. This instruction has the same effect as "B *R11". The two are 
interchangeable. The return (RT) Instruction simply makes the code more understandable and readable. 
It has more mnemonic (aiding the memory) value than "B *R1 1 " does. The program performs an 
unconditional branch to the address in R11. This completes program execution and retums control of the 
computer to the operating system. 



Here is the assembly listing produced with the Editor/Assembler package. Options used were "R" (label 
general workspace registers R0-R15), "L" (produce a listing), "S" (print the symbol table), and "C" 
(produce object code which is in compressed fonnat). 
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99/4 ASSEMBLER 
VERSION 1.2 PAGE 0001 



0001 








DEF 


START 


0002 








REF 


VSBW,VMBW 


0003 




837C 


STATUS 


EQU 


>837C 


0004 


0000 


0000 


SAVRTN 


DATA 


>0000 


0005 


0002 


000A 


AMTX 


DATA 


>000A 


0006 


0004 


0021 


AMTY 


DATA 


>0021 


0007 


0006 


000A 


DECTEN 


DATA 


>000A 


0008 


0008 


0030 


HEX30 


DATA 


>0030 


0009 


000A 




PNTANS 


ESS 


2 


0010 


000C 




WSPREG 


BSS 


>20 


0011 


002C 


C80B 


START 


MOV 


Rll,@ SAVRTN 




002E 


0000' 








0012 


0030 


02E0 




LWPI 


WSPREG 




0032 


000C« 








0013 


0034 


06A0 




BL 


@CLEAR 




0036 


007E» 








0014 


0038 


A820 


ADDUP 


A 


@AMTX,@AMTY 




003A 


0002* 










003C 


0004' 








0015 


003E 


C160 




MOV 


@AMTY,R5 




0040 


0004' 








0016 


0042 


04C4 




CLR 


R4 


0017 


0044 


3D20 




DIV 


@DECTEN,R4 




0046 


0006' 








0018 


0048 


A160 


MASKUP 


A 


@HEX30,R5 




004A 


0008' 








0019 


004C 


C805 




MOV 


R 5, @ PNTANS 




004E 


000A» 








0020 


0050 


C144 




MOV 


R4,R5 


0021 


0052 


04C4 




CLR 


R4 


0022 


0054 


3D20 




DIV 


@DECTEN,R4 


0023 


0058 


A160 




A 


@HEX30,R5 




005A 


0008' 








0024 


005C 


0A85 




SLA 


R5,8 


0025 


005E 


D805 




MOVB 


R5r@ PNTANS 




0060 


000A' 








0026 


0062 


0200 


PUTUP 


LI 


R0,738 




0064 


02E2 








0027 


0066 


0201 




LI 


Rl, PNTANS 




0068 


000A' 








0028 


006A 


0202 




LI 


R2,2 




006C 


0002 








0029 


006E 


0420 




BLWP 


@VMBW 




0070 


0000 








0030 


0072 


C2E0 


EOJ 


MOV 


@SAVRTN,R11 




0074 


0000' 








0031 


0076 


04E0 




CLR 


QSTATUS 




0078 


837C 
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0032 007A 064B 

0033 007C 045B 



DECT Rll 
RT 



0034 007E 04C0 CLEAR 

0035 0080 04C1 

0036 0082 0420 LOOP 
0084 0000 

0037 0086 0280 
0088 02FF 



BLWP @VSBW 



CLR R0 
CLR Rl 



CI 



R0,767 



0038 008A 1302 

0039 008C 0580 



JEQ 
INC 



CLEARX 
R0 



99/4 ASSEMBLER 



VERSION 1.2 

0040 008E 10F9 

0041 0090 045B CLEARX 
0042 



JMP 
B 

END 



LOOP 
*R11 



PAGE 0002 



The first column of numbers are your line numbers. The values in the second column (0000, 0002, 0004, 
etc.) represent the location counter. With the Editor/Assembler, it starts at >0000 and is incremented to 
address each line. The location counter goes from >000A to >000C at line 10 because the BSS 
directive at line 9 sets aside 2 bytes of storage that are part of the program. So, >000A + 2 = >000C. 
Notice that the first three directives do not affect the location counter values. The values seen here are 
displacement values. They are added to the beginning address where the code is loaded In order to 
address each line or label in the program. 

The third column of numbers are hex representations of the machine code at each address (location 
counter value). At line 5, location >0002, you will see the value >000A (ten) which is the value to which 
AMTX is initialized. Line 16, location >0042, shows the value >04C4. This is hex for the machine 
language instruction to clear (CLR). The length of your program can be determined by subtracting the 
beginning value of the location counter from the last value in the location counter. In this case 
>0090 - >0000 = >0090, indicating that this program is > 90 (144 decimal) bytes long. 

Here is the symbol table that was built from the program. Each symbol which was used along with its 
address is shown in alphabetic order. The address next to each symbol may be an actual address 
(STATUS >837C), or the value of the location counter. 

99/4 ASSEMBLER 



VERSION 


1.2 














PAGE 


0003 


t 


ADDUP 


0038 


1 


AMTX 


0002 


• AMTY 


0004 


• 


CLEAR 


007E 


t 


CLEARX 


0090 


1 


DECTEN 


0006 


• EOJ 


0072 


1 


HEX30 


0008 


1 


LOOP 


0082 


1 


MASKUP 


0048 


• PNTANS 


000A 


1 


PUTUP 


0062 




R0 


0000 




Rl 


0001 


R10 


000A 




Rll 


000B 




R12 


000C 




R13 


000D 


R14 


000E 




R15 


000F 




R2 


0002 




R3 


0003 


R4 


0004 




R5 


0005 




R6 


0006 




R7 


0007 


R8 


0008 




R9 


0009 


1 


SAVRTN 


0000 


D 


START 


002C 


STATUS 


837C 


E 


VMBW 


0070 


£ 


VSBW 


0084 




WSPREG 


000C 














0000 ERRORS 
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LINE-BY-LINE ASSEMBLER/MINI-MEMORY NOTES 

To accomplish the same results in an assembly language program using the Line-by-Line assembler, 
several things must be done differently. The Line-by-Line assembler does not recognize some of the 
directives that the Editor/Assembler does. Some instructions are needed with the Line-by-Line assembler 
program which are not usually needed with the Editor/Assembler. 

When your object program is run, all the information in it is loaded into memory. With the 
Editor/Assembler package and a program as simple as this one, the actual address at which the 
program is stored is of little importance. Simply allow the loader to start loading the program wherever it 
wants. Except for some special programs this is almost always the case. With the Mini-Memory however, 
your assembly language programs must be loaded into a limited amount of space. Within this same 
space you must allow for the symbol table's storage requirements as well as the REF/DEF table. The 
symbol table is built during assembly from symbols you use in your program. The REF/DEF table is an 
area where the computer stores the program name and the names of other routines (VSBW, VMBW, 
etc). 

The default load address with the Line-by-Line assembler is >7D00. If you do not use a command 
which alters the location counter, then >7D00 is the value it will start at when using the Line-by-Line 
assembler. The symbol table built from your program begins at address >7CD8 and contains one 4 byte 
entry for each symbol you have used and one additional 4 byte entry which marks the end of the table, if 
you generate too many symbols in your assembly program, the default load address of >7D00 will not 
be suitable. Your symbol table will have grown to exceed this address and your program , when loaded, 
will overlay this table. For this reason, it is wise to limit the use of EQUates and labels (which generate 
symbol table entries) when using the Line-by-Line assembler. To determine the optimum load address for 
your assembly language program using the Line-by-Line assembler, use this formula: 

Load address = >7CD8 + (4 * (number-of-iabels + 1)) 

For example, if there are 12 labels: 

4 * (12+1) = 4 * 13 = 52 or >34 

>7CD8 
+ >0034 



= >7D0C 

You now know that the optimum load address is >7D0C, not >7D00. In order to get the value loaded 
into your program, you must include a directive known as AORG (Absolute ORiGin).This would be coded 
as: 

AORG >7D0O 

AORG is the op-code. There is no label. This instruction affects the the location counter. The value in the 
location counter is where your assembled code is stored. In the above example, the AORG directive 
should be the first or nearly the first statement in your program. However, it can be used again and 
again. If you had a large program, you might want to start out loading the first section of it at one 
address and continue until that space was used up. Then by placing an AORG statement in the program 
before the next section of code, the remaining portion of the program could be stored beginning at a new 
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location. This l<ind of application is only feasible when the 32K memory expansion is attached and 
represents an advanced programming technique. With the Line-by-Line assembler, use fewer labels. Use 
specific values instead. Perform the calculation above to determine your optimum load address. 

Now that you know something about AORG, look over the following program example. Here is the same 
program as it would have to be written to be entered using the Line-by-line assembler 

Line Op 

Number Label Code Operand 

II II 

II II 



001 




AORG 


>7D0C 


002 


VS 


EQU 


>6024 


003 


VM 


EQU 


>6028 


004 


AX 


DATA 


>000A 


005 


AY 


DATA 


>0021 


006 


DT 


DATA 


>000A 


007 


H3 


DATA 


>0030 


008 


PA 


BSS 


2 


009 


WR 


BSS 


>20 


010 


ST 


MOV 


11, 6 


011 




LWPI 


WR 


012 




BL 


@CL 


013 

K/ «L W 




A 


0AX. 0AY 


014 




MOV 


@AY, 5 


015 




CLR 


4 


016 

K/ X V 




DIV 


0DT. 4 






A 


\y I* J f J 






I'iW V 


PA 


019 




MOV 


4,5 


020 




CLR 


4 


021 




DIV 


@DT,4 


022 




A 


@H3,5 


023 




SLA 


5,8 


024 




MOVB 


5,@PA 


025 




LI 


0,738 


026 




LI 


1,PA 


027 




LI 


2,2 


028 




BLWP 


@VM 


029 




CLR 


@>837C 


030 




DECT 


6 


031 




B 


*6 


032 


CL 


CLR 





033 




CLR 


1 


034 


LP 


BLWP 


@VS 


035 




CI 


0,767 


036 




JEQ 


CX 


037 




INC 





038 




JMP 


LP 
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039 
040 
041 
042 
043 
044 
045 
046 



CX 



B 



*11 



AORG 
DATA 
DATA 
AORG 
TEXT 
DATA 
END 



>701C 
>7FB2 
>7FE0 
>7FE0 



•EXAMP1» 
ST 



*These lines show how to add program 
*name and entry point to REF/DEF 
*table. Though this is not included 
*in subsequent program listings^ 
*this step is required with any 
♦program entered with Line-by-Line 
♦assembler . 



Labels used with the Line-by-Line assembler can only be 2 characters in length. Whenever a label is 
used, it will generate a symbol table entry. With the space restrictions of the Line-by-Line assembler, it is 
important to limit the use of labels. For this reason, most of the labels shown in the Editor/Assembler 
version have been eliminated. 

The Line-by-Line assembler does not recognize the directives DEF and REF. An alternate method of 
adding your program's name to the REF/DEF table will be discusssed in the next chapter. In the 
Editor/Assembler example, the REF directive was used to automatically equate the symbolic names 
VSBW and VMBW with their addresses. In the Line-by-Line assembler example, this must be 
accomplished with EQUates at lines 2 and 3. The names given these routines have been shortened to 
the 2 character limit as well. 



The symbolic addresses SAVRTN and STATUS have been eliminated order to conserve label usage and 
therefore symbol table entries. Instead, at line 10, the contents of register 11 (the return address) is 
moved to register 6. The "R" prefixes have been left off of all references to registers in this program 
example for two reasons. First, R0,R1,R2,R3, etc. will result in symbol table entries, so this is one way to 
cut down. Second, you may be able to decide for yourself from this example whether or not this method 
of register naming is for you. Most people find the symbols R0,R1,R2,etc. easier to follow. Register 6 will 
not be used anywhere else in this program, so it will do just fine for temporary storage. 

At line 29, you want to clear the status byte just as you did in the Editor/Assembler version. Simply code 
the specific address as @>837C instead of the symbol STATUS, which was dropped. Both ways of 
coding are valid. In the Editor/Assembler version you have certain "luxuries" and don't have to be as 
conscious of symbols. You could have coded the specific address in the Editor/Assembler version just as 
you could have used a symbolic address in the Line-by-Line assembler version. 

The RT instruction is not recognized by the Line-by-Line assembler either. Instead, use an unconditional 
branch to the return address in register 6. Your return address was moved back to register 1 1 in the 
Editor/Assembler version because RT uses register 11. 

Lines 40 through 45 are needed to add the program name (EXAMP1) and the entry point (ST) to the 
REF/DEF table. There will be more on this in the next chapter. Line 44 uses the TEXT directive. The 
TEXT directive allows you to initialize storage much the same as the DATA directive. With the TEXT 
directive the values may be entered as a string of characters enclosed by single quotation marks. Each 
character takes up one byte of storage. 

There are quite a few of these coding differences between the Line-by-Line assembler and the 
Editor/Assembler. Generally they are the directives recognized, label lengths, program length, and the 
assembler/loader. The instruction set and the way they operate are practically indentical. The 
explanations are valid for either assembler product 
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EDITOR/ASSEMBLER MANUAL REFERENCES 

The following references will provide you with more Infonnatlon on coding. 

Section 3.3 page 46 through Section 3.9 page 55 
Section 4.1 page 56 through Section 5.8 page 74 

ADDRESSING— There are five general addressing modes. Three are used In the program example: 



Section 14.1 page 208 through Section 14.1.1 page 210 
Section 14.1.4 page 212 

Section 14.3 page 224 through Section 14.4.2 page 228 
Section 14.5.2 page 234 

DIRECTIVES— These directives are covered in the program example: 

AORG - Absolute origin, affecting the location counter. 
BSS - Block Starting with Symbol, reserves storage. 
EQU - Equate, associates a label with an address. 

BYTE - Initialize 8 bits of storage to some value. Not recognized by LIne-by-Llne Assembler. 
DATA - Initialize 16 bits of storage to .some value. 
TEXT - Initialize storage using a character string. 

DEF - Define, makes the labels it defines part of your object code so that your program Is available to 
other software and adds the labels to the REF/DEF table. Not recognized by the Line-by-Llne 
assembler. 

REF - External Reference, make other program labels available to your program. Not recognized by the 

Line-by-Line assembler. 
END - End of source code. 

Section 6.1 page 78 through Section 6.14.2 page 102 

ARITHMETIC INSTRUCTIONS— These arithmetic operations are used and detailed In the program 



A - Add words, adds the operands and puts the answer at the second operand. 
INC • Increment the contents of the operand by 1. 
INCT - Increment the contents of the operand by 2. 
DEC - Decrement the contents of the operand by 1. 
DECT • Decrement the contents of the operand by 2. 

DIV - Divide, divides the first operand Into the second operand (which must name a register). 



Example 



Workspace Register Direct 
Workspace Register Indirect 
Symbolic Memory 



A @AMTX^ @AMTY 



MOV 11,6 
B *R11 



example: 



Each arithmetic Instruction affects the status register according to the result of the operation. 
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JUMP AND BRANCH INSTRUCTIONS— Five of the many kinds of jump and branch instructions used in 
the example are: 

B - Unconditional Branch, branch to a secified address. 

BL - Branch and Link, branch and place the return address into R11. 

BLWP - Branch and Load Workspace Pointer, branch to a routine and set the WP register to point to 

that routine's own register space. 
JMP - Jump, unconditional jump to an address. 

JEQ - Jump if EQual, if the equal bit in the status register is 1, then jump to the specified address. 
Section 8.1 page 138 through Section 8.3 page 143. 

COMPARE INSTRUCTIONS— Only one type of compare instruction is used in the program example. 
However, they all operate in similar fashion. 

Ci - Compare Immediate, compare the contents of the named register (first operand), to a specific value 
(second operand). 

Section 10.1 page 161 through Section 10.5 page 168. 
Section 10.9 page 172 

LOAD AND MOVE INSTRUCTIONS— There are eight of these Instruction types. The example program 
used four: 

LWPI - Load Workspace Pointer Immediate, needed to establish alternate workspace registers. 
MOV - Move a word, copies a word (16 bits) to another word. 
MOVB - Move Byte, copies one byte (8 bits) to another byte. 
LI - Load Immediate, used to put specific values into a register. 

These instructions affect the status register according to the value at the address involved. 

Section 11.5 page 184. 

LOGICAL INSTRUCTIONS— Only one is used in the example program: 
CLR - Clear, set all the bits at the named register or address to all zeroes. 
Section 12.1 page 194 through Section 12.5 page 204. 

WORKSPACE REGISTER SHIFT INSTRUCTIONS— Again, only one is used in the program example, 
but its operation is analogous to the other types of register shift instructions. 

SLA - Shift Left Arithmetic, shift the bits of the named workspace register a specified number of positions 
to the left and fill the right side with zeroes. All shift instructions affect the status register. 

Section 13.1 page 206 through Section 13.2 page 207. 

PSEUDO INSTRUCTIONS— Only one Is used and it is not recognized by the Une-by-Une assembler. 
RT - Return, has the same effect as "B *R11". 
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Section 19.2 page 307. 

Look up these terms in the glossary: 

Arithmetic Operators 

Assembiy-Time Constant 

Comment Field 

Constant 

Context Switch 

CPU RAM 

Destination Operand 

Directives 

Expressions 

Immediate Instruction 

Indexed Memory Addressing 

Jump instructions 

Ubel Field 

Location Counter 

Mnemonic Code 

Op-Code Field 

Operand 

Operand Field 

Predefined Symt)ols 

Pseudo-Instructions 

Symbol 

Symbol Table 

Symbolic Addresses 

Symbolic Memory Addressing 

VDP RAM 

Workspace Register Addressing 
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CHAPTER SIX 

ASSEMBLING AND RUNNING A PROGRAM 

Using The Editor/Assembler 

The following is a brief overview of the steps you should take to enter, assemble, save, and run the 
sample program in Chapter Five. Read the documentation provided by Tl with the Editor/Assembler 
product covering use of the Editor in preparing source programs. Take some time to become familiar with 
the editing capabilities which are available. Many of the features of the Editor program apply readily to 
the preparation of text and documents as well as assembly source statements. The steps given here 
assume that you have only one disk drive. If you have more than one, leave the diskette with the 
Editor/Assembler programs in drive #1 and save your source and object files on drive #2 or #3. 

Get to the Editor/Assembler title screen, and with the software diskette in drive #1, select the EDIT 
option (#1). This should take you to the title screen for the Editor. From the Editor menu, select the EDIT 
option (#2). The Editor program will load from the diskette. Carefully type in the sample program using 
all upper-case characters. Check your typing. The sample program has been sucessfully assembled and 
run using both the Editor/Assembler and the Mini-Memory, if you encounter errors, it may be because 
you have entered something incorrectly. 

When you have completed entering the source code, press ESCAPE (FCtN 9) twice to return to the 
EDITOR title screen. Then, insert the diskette on which you are going to save your source program into 
disk drive #1 and select the SAVE option (#3). The prompt VARIABLE 80 FORMAT (Y/N)? appears. 
"Y" indicates variable, "N" indicates fixed. The Editor/Assembler handles both variable or fixed length 
files. For this exercise, answer "Y" to this prompt. Next you will be asked for the file name you want to 
call your source program. For this exercise, type in DSK1 .SOURCE, and press ENTER. The contents of 
the text buffer (the SOURCE program you have just entered) will be saved on disk drive number one in 
variable 80 byte record format, as "DSK1 .SOURCE". Next, remove your diskette and insert the software 
diskette which has the assembler program on it. Press ESCAPE (FCTN 9) to return to the 
Editor/Assembler title screen and select the ASSEMBLE option (#2). 

You will be asked If you want to load the assembler at this point. This is done to allow you to check to 
be sure the proper diskette is in the drive. When you have the diskette in drive #1, reply "Y" to this 
prompt. The next prompt you should see will be for the name of the file which contains your source 
program. Remove the diskette containing the assembler and insert the diskette that you saved your 
source program on. Type in DSK1 .SOURCE. The next prompt is for the name you want to give the 
object code that will be generated from your source code. For this example, type in DSK1 .OBJECT. The 
next prompt is for a valid device name for the assembly listing. If you do not have a printer, you can 
save the listing on disk for later viewing with the editor program, or you can elect not to produce an 
assembly listing. If you have a printer, you should enter the parameters which describe the interface port 
you are using for your printer. (Examples: RS232.BA=1200, RS232/2.BA=9600.PA=N, PIO). 

If you choose not to produce a printed listing or a list file, press enter at this prompt. The option to 
produce or not to produce a listing comes up in the next prompt. The next prompt asks for the options 
you want for this assembly. Option "R" allows you to refer to the general workspace registers in your 
program as R0,R1,R2...R10, etc. Option "C" will produce object code in compressed format which takes 
up less storage than uncompressed code. Option "L" is the option to produce an assembly listing. If you 
do not choose option "L", no listing will be produced. Option "S" will include a symbol table map if you 
have also picked "L". For this exercise, the minimum option you will need is "R". Choose the other 
options depending on your own hardware configuration. 
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There is an additional option available that is not documented in the Editor/Assembler manual. This is 
the 'T" option. This will print out the location and hexadecimal value of each byte of a TEXT string. 
Without the "T" option, the assembly listing will print only the beginning address (location counter value) 
of a TEXT string and the hexadecimal value of only the first byte of that string. 

"Assembler Executing" should now appear as the assembler processes your code. If everything has 
gone right, the assembly process should end with 0000 ERRORS. If errors do occur, go back and re- 
examine the source code that you saved as DSK1 .SOURCE. To edit your source code, place the 
software diskette into disk drive #1. Get to the Editor title screen and select the LOAD option (#1). After 
the editor program has loaded, there will be a prompt for file name. Insert the diskette containing your 
source program into disk drive #1 and type in DSK1 .SOURCE. The editor will load your source program 
from the diskette. Select the EDIT option (#2) to review and edit your source program. When you are 
finished making corrections, save the source code under the same name, and repeat the assembly 
process. 

Once you have successfully assembled the sample program, press Enter to return to the 
Editor/Assembler screen and select the LOAD AND RUN option (#3). The first prompt will ask you for 
the name of the file that contains your object program. Type in DSK1 .OBJECT and the loader will load it 
from the diskette into memory. Another prompt for "File Name" will appear. This is because the loader 
provided with the Editor/Assembler will allow you to continue loading object programs until memory is 
full. There is only one program to load and run, so at this point press Enter. The next prompt will be for 
"Program Name." The name of this program and its entry point address was DEFined as "START". 
Type in START for this prompt and the program should run. If you coded END START as the last line of 
the program then the program will execute as soon as it is loaded without needing you to state the entry 
point address. 

The numerals "43" should appear In the lower lefthand corner of the screen. To exit from the program's 
control, press QUIT (FCTN =). This should return you to the main title screen. 

Remember, it is entirely possible to have made a mistake entering the sample program and still wind up 
with 0000 ERRORS at the end of the assembly process. When your assembly program runs, it is in 
control of the computer. It may be necessary to turn the computer off to stop a "runaway" program and 
then turn it back on. 



Using the Line-by-Line Assembler 

Follow the step by step instructions for loading the Line-by-Line assembler program from cassette. Get to 
the Mini-Memory title screen and select the RUN option (#2). The prompt PROGRAM NAME? appears. 
Type in NEW to get into the Line-by-Line assembler program. 

The Line-by-Line assembler immediately assembles each assembly statement as you enter it and stores 
the resulting machine language instructions at the address indicated. Two columns of numbers appear to 
the left of each line displayed. The first column is the location counter. The values in this column are 
addresses. They are shown in hexadecimal notation. The Line-by-Line assembler starts out "pointing to " 
address >7D00. 

The next column of numbers represents the value in hexadecimal notation stored at the address 
indicated. You are in effect, "peeking" into the computer and seeing the value presently stored at a 
specific address. The screen shows: 
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7D00 045B 

Try pressing Enter several times and notice what happens. Each time you press Enter the location 
counter is incremented by two. The location counter advances two bytes, or one word, at a time. The 
hexadecimal value at each word of memory is displayed as well. The location counter always advances 
to an even address. Not only can you move fonward like this, but you can also jump around to various 
locations too. To affect the location counter, use the assembler directive AORG. With AORG, you can 
"peek" at any location. Press the space bar and type: 

AORG 7D00 and press ENTER. 

The screen shows: 

7D00 045B 

So, you are back where you started. Now type: 

AORG >7D0C and press Enter. 
The screen shows: 
7D0C A100 

This will be the first entry in the sample program. In addition to peeking Into the computer's memory, you 
can also alter the contents of any location with the Line-by-Llne assembler. You can "poke" a number 
into any address. Type: 

AORG >837C and press Enter. 
The screen shows: 
8370 2000 
Now type in: 

DATA >0000 and press Enter. 

The screen now shows: 

8370 0000 DATA >0000 
837E 0000 

The DATA directive you entered with a value of all zeroes Initialized the address indicated by the 
location counter to all zeroes. The Line-by-Line assembler then advanced to the next even address, 
>837E. Address >8370 is the address of the GPL status byte. When you first looked at the address of 
the GPL status byte, its value was >20. The very next byte's address is >837D which contained >00. 
The display showed 2000, which is the contents of the word made up of bytes >8370 and >837D. 
When you entered the DATA >0000 directive you cleared (set to all zeroes) the status byte and the very 
next byte as well. Now type: 

AORG >837C and press Enter. 
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The screen shows: 
837C 2000 

The status byte value is back to >20. One of the things the status byte can detect is the depressing of 
keys on the keyboard. Whenever any key is pressed, the value >20 will be present in the status byte. 
This knowledge will be applied In a later example. The DATA directive cleared the status byte, but as 
soon as you pressed the keys to type in "AORG". the status byte was reset by the computer to >20. 

Now type AORG >7D0C. This is line 01 of the sample program. Enter the source code very carefully 
just as it'appears in ail upper case characters. If you make a mistake while entering a line and you 
realize it before you press Enter, type in "E" and press Enter. This infonns the LIne-by-Une assembler 
that you have made an en-or and allows you to re-enter the line immediately. You will naturally make 
some en-ors at first Many errors will be detected by the Line-by-Line assembler program the moment 
you enter them much the same as Tl BASIC syntax errors are detected. You may scroll backward and 
fonvard to view the code you have already entered by use of the up and down arrow keys. Refer to 
"Editing Techniques" in the Une-by-Line asssembler instruction book and take some time to learn to 
enter and correct source statements. 

Lines 41 through 45 were inserted into this version of the sample program to add the program name and 
entry point to the REF/DEF table. At line 41, a calculation is needed to find out if there is sufficient room 
left to add the program name to the REF/DEF table. To do this, you need to find the difference between 
two values which are stored at addresses >701C and >701E. The value stored at address >7010 is 
the First Free Address in the Module (FFAM). The value stored at address >701E is the Last Free 
Address in the Module (LFAM). Type: 

AORG >701C and press Enter 
The screen shows: 
701 C >7FB2 
Now type in: 

DATA >7FB2 and press Enter 

The screen shows: 

701 >7FB2 DATA >7FB2 
701 E >7FE8 

The effect of the DATA >7FB2 directive is to not change the value at >701C and advance the location 
counter to the next even word address, >701E, the other address to be checked. 

>7FE8 
- >7FB2 



= >0036 
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The answer to this calculation must be greater than 8 bytes. Otherwise, there is not enough space. The 
answer of >36 is easily large enough. The next step is to take the value at address >701E (in this case 
>7FE8), subtract 8 bytes from it and place the new value back at >701E. 

>7FE8 
- >0008 



= >7FE0 

Since the location counter is currently pointing at address >701E, all that is needed is a DATA directive 

to place the new value there. 

Type: 

DATA >7FE0 and press Enter 

The next entry will be AORG and the address you just calculated. Type in: 

AORG >7FE0 and press Enter 

This points to the REF/DEF table area into which will be placed the program name and entry point The 
program name takes up 6 characters, which is entered as a string with the TEXT directive: Type in: 

TEXT 'EXAMP1' and press Enter 

If the program name used Is less than six characters, the rest of the name entry In the REF/DEF table 
will be padded with spaces. The next required entry will be a DATA directive followed by the label which 
marks the entry point of the program. Entry point means the address of the first instruction to be 
executed in the program. Reading an assembly program from top to bottom, the entry point may, or may 
not, be the first program instruction in the program sequence. In the sample program the label for the 
entry point address was "ST". Type in: 

DATA ST and press Enter 

The label "ST" will be equated with the entry point address in the program named EXAMP1. 

END 

The effect of the END directive with the Line-by-Line assembler is to signal an end to the source code 
and the assembly process. The moment you type END, you will exit from the assembler. The use of 
"END START" is not possible for programs entered using the Line-by-Line assembler. When you type 
END and then press Enter, there should not be any unresolved references. Before you type in END, 
scroll back over the source program you have just entered by use of the up and down arrow keys. If you 
have entered the sample program exactly as shown, there should not be any problems. 

Once you have successfully assembled the sample program, go to the Mini-Memory title screen and 
select the RUN option (#2). The prompt "Program Name?" appears. Type in EXAMP1. The run program 
will look in the REF/DEF table, find the name EXAMP1, and branch to the entry point of the program 
(symbolic address ST) also found in the REF/DEF table. 

The numerals "43" should appear in the lower lefthand comer of the screen. To exit from the program's 
control, press QUIT (FCTN =). This should return you to the main title screen. 
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Remember, it is entirely possible to have made a mistake entering the sample program and still wind up 
with 0000 unresolved references at the end of the assembly process. To repeat, when you run your 
assembly program, it is in complete control of the computer. It may be mecessary to turn your computer 
off to stop a "runaway" program, and then turn it back on. 



EDITOR/ASSEMBLER MANUAL REFERENCES 

The following references will provide you with some more information on assembling and running 
programs. 

Section 1.1 page 15 through Section 2.5 page 38 
Section 15.1 page 235 through Section 15.1.1 page 236 
Section 15.5 page 243 through Section 15.5.2 page 245 
Section 19.1 page 305 through Section 19.2 page 307 

Look up these temns in the glossary: 

Assembler 
Assembly Options 
Command Mode 
Edit Mode 
Editor 

End-of-File Marker 
Fatal Error 
Ust File 
Loader 
Loading 
Non-Fatal Error 
Special Keys 
Symbol 
Symbol Table 
Window 
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CHAPTER SEVEN 

SCREEN AND CHARACTER DISPLAYS 

One of the things you can do right away with a language such as Tl BASIC Is to display 
numbers, letters, and other symbols on the screen and control their position and color. The 
sample program Introduced two fundamental Video Display Processor routines. The numerals 
"43" were displayed at the lower left corner of the screen as its only output. The numerals 
appeared as black symbols on a green background. These are the preset colors of the screen 
and displayable character sets which are in effect when your assembly is run. This chapter will 
examine the TMS9900 assembly language approach to screen displays more closely. 

The processing necessary to generate the video signals that create symbols and graphics is 
handled by a separate microprocessor known as the TMS9918 chip in the older 99/4 and as the 
TMS9918A in the 99/4A computers. The central processor in your computer is the TMS9900 
chip, it is the microprocessor dealt with directly in TIVIS9900 assembly language. Actually, your 
Texas Instruments home computer contains several distinct microprocessors which work in 
concert to make the home computer a reality. 

The area within memory which Is designated for the Video Display Processor's needs is a 
specially segregated area known as VDP Random Access Memory (RAM). TMS9900 assembly 
instructions like MOVe, or Add, will not work on addreses within VDP RAM. Data must be 
manipulated within your program's domain (CPU RAM) and written to or read from VDP RAM 
by means of special routines which allow these two processors to share data and 
communicate with each other. The first program example Introduced two very handy VDP 
routines, VSBW (VDP Single Byte Write), and VMBW (VDP Multiple Byte Write), which copied 
data from your program into VDP RAM. The data was first set up within the program. Then, by 
placing certain required values into the proper registers, and branching to the routine's 
address, the screen was cleared, and then the sum of 10 plus 33 was displayed. This pattern of 
loading certain key registers with parameter values and branching to a special address is a 
recurring one throughout the various VDP routines. To use any VDP routine in your program 
you must include a REF directive (Editor/Assembler) or an EQUate directive (Line-by-Line 
assembler) with the symbolic name for each VDP routine you want to use. 

One of the easiest ways to display titles and messages combines the use of the TEXT 
directive and the Multiple Byte Write routine. With the Editor/Assembler, this routine's 
symbolic address is equated to VMBW. The Line-By-Llne program example equated the name 
as VM. With the TEXT directive memory can be Initialized in easily readable character strings. 
The way the string appears in the program is exactly how it will look when properly displayed. 
Here is a program segment to accomplish this: 

MSG1 TEXT •** PROGRAM NUMBER 2 **' 

The character string Is enclosed by single quote (') marks. The single quote marks will not be 
part of the display. Any characters can be used with the TEXT directive except the single 
quote mark. The single quote mark can only be used to delimit the contents of the string. To 
display this program title you must give VMBW three pieces of information: 

1. The address in VDP RAM you want this message to be placed at (written to). The position 
on the screen. 
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2. The begining address of the message. Where to find the message. 

3. The number of bytes to write. The iength of the message. 

In Tl BASIC, the screen can be addressed as row N, column N. There are 24 rows and 32 
columns. This same screen configuration is defined In assembly language as a table of 768 
bytes. This is the Screen Image Table in VDP RAM. Each byte of this table represents one 
screen position. The VDP RAM addresses for these 768 bytes are through 767 decimal and 
>00 through >2FF hexadecimal. Use this formula to determine the proper VDP RAM address 
for a given set of row and column values: 

VDP RAM ADDRESS DECIMAL = ((ROW - 1) * 32) * (COLUMN - 1) 
To display the above message at row 10, column 6: 

ADDRESS = ( ( 10 - 1) * 32 ) + ( 6 - 1) 
= ( 9 * 32 ) + 5 
288 +5 



293 



To pass this information to VMBW, place It Into register with a LI (Load Immediate) 
Instruction: 

LI R0,293 

The next piece of information required by VMBW Is the beginning address of the message. The 
label "MSG1" was Included with the TEXT directive and is therefore equated to the value of 
the beginning address of the message. Remember that this value Is the ADDRESS of the 
message, not the data itself. The VMBW routine needs this Information In register 1. Again 
using the LI instruction: 

LI R1,MSG1 

Finally, VMBW needs to know how long the message Is in bytes. One byte is required for each 
character of the message. There are 22 characters In the message labeled MSG1. This value 
must be put Into register 2: 

LI R2,22 

Since the location counter always advances to an even word address, it is always a good Idea 
to set aside storage with directives like TEXT In even byte amounts. 

To display the message, perform a Branch and Load Workspace Pointer to the address of the 
VMBW routine: 

BLWP @VMBW 
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The program segments: 



REF VMBW 



MSGl TEXT •** PROGRAM NUMBER 2 **• 



DISP LI R0,293 
LI R1,MSG1 



LI R2,22 
BLWP @VMBW 



Of course the TEXT directive Is just one way to build displayable data and must be "hard 
coded" Into the program. You can also use the ASCII codes for letters and numbers and have 
the program create numeric and alphanumeric strings just as the sample program did with the 
answer to its addition problem: 



PNTANS BSS 2 

MOV R5,@PNTANS 



MOVB R5,@PNTANS 



PUTUP LI R0,738 

LI Rl, PNTANS 

LI R2,2 

BLWP @VMBW 



The VSBW (Single Byte Write) routine only writes one byte at a time. Since the length of the 
data to be written is always 1, R2 is not needed for VSBW. You need only give VSBW the 
correct VDP address In RO, and the data to be written in the first 8 bits (left byte) of register 1. 
This Is different from ViVIBW where register 1 must contain the address of the data. 

Suppose that Instead of the title MSG1, You want to display an asterisk (*) at row 10, column 
6. The ASCII code for an asterisk Is 42 decimal, >2A hexadecimal. You have already 
calculated the proper address in VDP RAM for row 10, column 6, as 293. The code would look 
like this: 

LI R0,293 
LI R1,>2A00 
BLWP @VSBW 

A Tl BASIC Statement you should be familiar with Is CALL SCREEN (n). The value of n Is some 
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number between +1 and +16. Each number represents a different screen color. In TMS9900 
assembly language the same set of colors are available to you. Their values are all one less 
than their TI BASIC counterparts or through 15 decimal, >0 through >F hexadecimal. The 
color of the screen border is controlled by VDP RAM Write Only Register 7. Access to this 
register and control of screen border color is accomplished through the VDP Write To Register 
subroutine equated by the Editor/Assembler to VWTR. With the Line-by-Llne assembler this 
routine's address of >6034 must be EQUated to some 2 character label. The colors and their 
respective TMS9900 assembly language hexadecimal values are: 



TRANSPARENT >0 
BLACK >1 
MED. GREEN >2 
LIGHT GREEN >3 
DARK BLUE >4 
LIGHT BLUE >5 
DARK RED >6 
CYAN >7 



MED. RED >8 

LIGHT RED >9 

DARK YELLOW >A 

LIGHT YELLOW >B 

DARK GREEN >C 

MAGENTA >D 

GRAY >E 

WHITE >F 



To set the border color of the screen to magenta, the TMS9900 assembly instructions would 
be: 

LI R0,>070D 
BLWP @VWTR 

Register contains all the information that VWTR needs. The left byte (reading from left to 
right, the first and second hex digits >07 of register tells VWTR which VDP register to write 
to. In this example, it is VDP register 7. The VDP registers are single byte registers (8 bits) 
unlike the general workspace registers which are full word (16 bit) registers. The right byte (hex 
digits >0D) contains the value of the color you want. Of these 8 bits, the least significant 4 
(hex digit >D) set the screen border color. The most significant 4 bits (hex digit >0) set the 
foreground color when the TIVIS9918A is in text mode. Text mode is another form of display 
available with the TMS9918A. When you reach a proficient level with TMS9900 assembly 
language and VDP handling, you may want to try other modes. For right now though, the value 
you place in this position is of no consequence. The display mode your home computer 
operates in while in BASIC, Extended BASIC, and most applications is the graphics mode. 
Learn to master this display mode before you attempt to use any others. 

The effect of setting VDP RAM register 7 to >0D is to generate bands of magenta color at the 
top and bottom of the screen. The actual effect of the TI BASIC CALL SCREEN(n) Instruction 
Involves not only setting the color of the border, but setting the background colors of any 
characters that might be displayed to the same color. In this way, no matter what is displayed 
on the screen, there will be one uniform background color for the entire display. The 
foreground and background colors of the TI Home Computer character set are controlled by an 
area in VDP RAM known as the color table. 

Each entry in the color table is made up of one byte of data. Each byte controls the foreground 
and background colors of a set of 8 characters. The color table is a relocatable table. That is, 
with certain TMS9900 instructions, it is possible to change the location within VDP RAM that 
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the table will occupy. Changing the color table's location Is only necessary for other display 
modes. For right now, do not relocate the color table. Instead, use its default VDP RAM 
beginning address of >0380. 

To change the foreground and background colors of a particular character, the corresponding 
address within the color table must be determined, and one byte of data must be placed into 
that address. To emulate CALL SCREEN(n), it is necessary to change the bacl<ground color 
while leaving the foreground color at its default value of >1 (black). The value for black on 
magenta would be >1D. The left 4 bits of the byte control the foreground color (>1, black), 
and the right 4 bits control the background color (>D, magenta). 

Of course this data must be placed Into the correct color table address to yield the desired 
result. Here Is a handy chart which details the color table. The addresses given are 
displacement values. Each value from the chart must be added to the beginning VDP RAM 
address of the color table, in the case of the example, operating in graphics mode and not 
having done anything to relocate the color table, the beginning VDP RAM address of the color 
table is >0380. 



COLOR TABLE REFERENCE CHART 



COLOR TABLE 
DISPLACEMENT 



CHARACTER 
CODES AFFECTED 



>00 
>01 
>02 
>03 
>04 
>05 
>06 
>07 
>08 
>09 



>00 THROUGH >07 

>08 >0F 

>10 >17 

>18 >1F 

>20 >27 

>28 >2F 

>30 >37 

>38 >3F 

>40 >47 

>48 >4F 



>0A 
>0B 
>0C 
>0D 
>0E 
>0F 
>10 
>11 
>12 
>13 



>50 
>58 
>60 
>68 
>70 
>78 
>80 
>88 
>90 
>98 



>57 
>5F 
>67 
>6F 
>77 
>7F 
>87 
>8F 
>97 
>9F 



>14 
>15 
>16 



>A0 
>A8 
>B0 



>A7 
>AF 
>B7 
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>17 


>B8 


>BF 


>18 


>C0 


>C7 


>19 


>C8 


>CF 


>1A 


>D0 


>D7 


>1B 


>D8 


>DF 


>1C 


>E0 


>E7 


>1D 


>E8 


>EF 


>1E 


>F0 


>F7 


>1F 


>F8 


>FF 



The character codes for the entire range of possible characters start at >00 and end at >FF. 
Referring to the chart above, the color table address displacement value for character >FF = 
>1F. Add each of the displacement values to the beginning address of >0380: 



>0380 >0380 
+ >0000 + >001F 



= >0380 = >039F 



This demonstrates that to affect the colors of this range of characters, one byte of color data 
must be placed at VDP RAM addresses >0380 through >039F. Since one byte of data is 
required at each address, the Single Byte Write routine will be used. The instructions to do 
this are: 



LI R0,>0380 Load R0 with first address in VDP RAM 

LI R1,>1D00 Place color codes into left byte of Rl 

PUTCOL BLWP @VSBW Write left byte of Rl to address in R0 

INC R0 Add 1 to the address in R0 

CI R0,>039F See if it has gone too far 

JLE PUTCOL If not, repeat the process 



The last instruction used was the Jump if Low or Equal. The previous Compare Immediate is 
checidng RO for the last address value to be written to. The JLE instruction completes the 
comparison by directing program logic to keep returning to the loop PUTCOL as long as the 
address value In RO is less than or equal to >039F. 

The steps outlined so far to affect the color table entries are designed to mimic the effect of 
the Tl BASIC CALL SCREEN(n) command. Another Tl BASIC command is CALL COLOR(s,f,b). 
The "s" represents the set of characters to be affected, "f" the foreground color, and "b" the 
background color. Set may be a number from +1 to +14. In Tl BASIC, these color sets are 
equivalent to color table displacement values >04 through >11. To specify a color 
combination of white on dark blue for the asterisk (character code 42 decimal, >2A hex) the Tl 
BASIC statement CALL COLOR(2,16,5) would be used. The asterisk is a member of character 
set 2 in Tl BASIC and the Tl BASIC color codes for white and dark blue are 16 and 5 
respectively. 
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To accomplish the same result In TMS9900 assembly language, first consult the color table 
reference chart above and find the range of character code values to which the asterisk 
belongs. >2A falls within the range of values >28 through >2F. The displacement value for 
this set Is >05. Next, add this displacement value to the beginning address of the color table 
to determine the correct address (>0380 + >05 = >0385). 

The color values In TMS9900 assembly language are all one less than In Tl BASIC. White Is 15 
decimal, >F hexadecimal. Dark blue is 4 decimal, >4 hexadecimal. The instructions to set the 
color of the asterisk to white on dark blue would be: 



LI R0,>0385 COLOR TABLE ADDRESS OF ASTERISK 

LI R1,>F400 COLOR VALUES, WHITE (F) ON BLUE (4) 

BLWP @VSBW WRITE ONE BYTE OF DATA 



No program loop Is involved because this example only affects the foreground/background 
colors of one set of characters. Notice from the color table reference chart that there are color 
table entries for character codes which are less than and greater than the range of ASCII 
characters (30 through 126 decimal, >1E through 7E hexadecimal). These character values are 
not defined as dispiayable characters. Some of these character codes represent ASCII control 
characters which are used to regulate communications between computers. Others have no 
definition at all. Through TMS9900 assembly language you can make use all these character 
values In a variety of ways. 

First, recall the example program and its CLEAR routine. The standard method of clearing the 
screen display Is to fill the entire screen with spaces (ASCII code 32 decimal, >20 
* hexadecimal). But the CLEAR routine In the sample program wrote the >00 character code to 
the screen. Since character code >00 Is not defined as a dispiayable symbol, the effect looks 
the same as using the space character code. 

Another way to use these extra character codes is for color graphics. Recall from Tl BASIC 
that If the foreground/background colors of a character are set to the same color, anytime that 
character is displayed, a solid block of color would appear. One way to apply this would be the 
creation of a border of color around the screen. Each row of the screen has 32 columns. To 
create the side borders, use columns 1,2,31,32 of each row. Set the characters used to fill 
these positions to the same color as the top and bottom screen borders. So that you can still 
be able to display and use the standard ASCII character set, use a character code which Is 
outside the ASCII range and will not be needed for anything else. 

Here are the TMS9900 assembly language Instructions. Note that the DATA directive can be 
use to intlaiize more than one word at a time. 



BORDER DATA >8080 , >2020, >2020 , >2020 
DATA >2020,>2020,>2020,>2020 
DATA >2020,>2020,>2020,>2020 
DATA >2020,>2020,>2020,>8080 
*Define 32 characters to be used to fill 
*each row on screen. Characters occupying 
♦columns 1,2,31,32 are greater than any 
*ASCII codes and characters in remaining 
♦columns are ASCII spaces. 
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CLOOP 



BPUT 



BLOOP 



EXIT 



LI 


R0,>0706 


Set top and bottom screen borders 


BLWP 


@VWTR 


to dark red 


LI 


R0r>0390 


Set the color of character >80 to 


LI 


Rlr>6600 


dark red on dark red 


BLWP 


@VSBW 




LI 


R0,>0383 


Set range of ASCII characters to 


LI 


R1,>1F00 


black on white. Space character (>20) 


BLWP 


evsBw 


will appear white. 


CI 


R0f >038F 




JEQ 


BPUT 




INC 


R0 




JMP 


CLOOP 




LI 


R0, 


Fill screen with BORDER pattern. 


LI 


Rl, BORDER 




LI 


R2,32 




BLWP 


@VMBW 




CI 


R0,736 




JEQ 


EXIT 




AI 


R0r32 


Add Immediate adds 32 to R0 to 


JMP 


BLOOP 


address the next row. 



( rest of program ) 



Here is the effect on the screen: 



RED 



WHITE 



RED 



The patterns used to generate characters are controlled by another table In VDP RAM called 
the pattern descriptor table. The pattern descriptor table is also a relocatable table. The 
default beginning address in VDP RAM for the pattern descriptor table is >0800. Each table 
entry takes up 8 bytes. By changing the values stored in the pattern descriptor table, you can 
create graphics and symbols of your own. You can redefine the ASCIi character set or use any 
of the other available characters. For a complete explanation of creating patterns see the Ti 
BASIC or Extended BASIC reference material on the CALL Ci-iAR subprogram. Access to the 
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pattern descriptor table Is much like that of the color table. To redefine a character or create a 
graphic, the data which describes the pattern must be placed Into the corresponding address 
In the pattern descriptor table for the character code used. To help get you started, here Is a 
partial list of pattern descriptor table displacement values and their respective character 
codes. With a little arithmetic, you should be able to determine the address you want. 



PATTERN DESCRIPTOR TABLE REFERENCE CHART 
(ALL VALUES ARE HEXADECIMAL) 
PATTERN DESCRIPTOR CHARACTER 
TABLE DISPLACEMENT CODE AFFECTED 



>000 
>008 



>00 
>01 



>0F0 



>1E 



>100 
>108 
>110 



>20 
>21 
>22 



>150 
>158 
>160 
>168 



>2A 
>2B 
>2C 
>2D 



If you multiply the value of a charcter code by 8, you will find the displacement value In the 
pattern descriptor table for that character. This value must be added to the beginning address 
In VDP RAM for the pattern descriptor table. Unless you relocate the table by means of special 
Instructions, the table starts at >0800 hexadecimal, 2048 decimal. To create a new symbol for 
the cursor, for example, you would first multiply the the character code for the cursor by 8: 
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HEX DECIMAL 

CURSOR = >1E 30 

X >8 X 8 

= >F0 = 240 

Then, add this answer to the beginning VDP RAM address: 

Beginning PDT address >0800 2048 

Displacement value + >00F0 + 240 

Address desired = >08F0 = 2288 



You now knovj that the address of the pattern descriptor tabie entry for the pattern of the 
cursor character is >08F0. The TMS9900 assembly language instructions to change the cursor 
pattern are: 



CURPAT DATA >007Ey >4242, >4242, >7E00 

♦DEFINE 8 NEW BYTES OF DATA 
*T0 DESCRIBE NEW PATTERN 
LI R0,>08F0 *LOAD VDP RAM ADDRESS INTO R0 
LI Rl, CURPAT *LOAD ADDRESS OF DATA INTO Rl 
LI R2,8 *LOAD DATA LENGTH INTO R2 

BLWP @VMBW *WRITE DATA TO PDT 



Now, anytime the cursor symbol is displayed with an instruction set such as these: 



LI R0,293 
LI R1,>1E00 
BLWP @VSBW 



The pattern that was defined will be displayed Instead of the standard cursor symbol. Note 
that the character code for the cursor of >1E is still used. The computer takes the character 
code you specified, looks in the color table for the correct foreground/background colors, 
looks In the pattern descriptor table for the pattern to be displayed, and displays that 
pattern/color combination at the specified screen address. 

Screen and character displays created through TMS9900 assembly language programs are not 
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difficult once you master the fundamentals outlined In this chapter. The amazing speed of the 
TMS9900 assembly language becomes evident when It Is used with Video Display Processor 
applications. Changes to the screen display happen almost Instantaneously. Many more 
graphics capabilities become available through TMS9900 assembly language than are even 
possible In Tl BASIC. Here Is a complete TMS9900 assembly language program which will 
demonstrate some of the principles covered In this chapter: 



WR 

RETURN 
STATUS 
BORDER 



MSGl 
START 



CLOOP 



BPUT 



BLOOP 



EXIT 



DEF 

REF 

BSS 

BSS 

EQU 

DATA 

DATA 

DATA 

DATA 

TEXT 

MOV 

LWPI 

LI 

BLWP 

LI 

LI 

BLWP 

LI 

LI 

BLWP 

CI 

JEQ 

INC 

JMP 

LI 

LI 

LI 

BLWP 

CI 

JEQ 

AI 

JMP 

LI 

LI 

LI 

BLWP 

CLR 

MOV 

DECT 

RT 

END 



START 

VWTR^VSBW^VMBW 

>20 

2 

>837C 

>8080r>2020,>2020,>2020 

>2020,>2020,>2020,>2020 

>2020,>2020,>2020,>2020 

>2020,>2020,>2020,>8080 

•** PROGRAM NUMBER 2 **' 

R11,@RETURN SAVE RETURN ADDRESS 



LOAD WORKSPACE POINTER 
SET BORDER COLOR TO 

DARK RED 
SET COLOR OF >80 CHARACTER 
TO DARK RED 
ON DARK RED 
SET RANGE OF ASCII DISPLAY 
CHARACTERS COLOR TO 
BLACK ON 
WHITE 



WR 

R0,>0706 
@VWTR 
R0,>0390 
Rl,>6600 
(avSBW 
R0,>383 
R1,>1F00 
@VSBW 
R0,>038F 
BPUT 
R0 

CLOOP 
R0,0 

Rl, BORDER 
R2,32 
@VMBW 
R0,736 
EXIT 
R0,32 
BLOOP 
R0,293 
R1,MSG1 
R2,22 
@VMBW 

©STATUS CLEAR THE GPL STATUS BYTE 

@RETURN,R11 GET RETURN ADDRESS 
Rll ALTER THE RETURN ADDRESS 

RETURN 



LOAD THE SCREEN IMAGE 
TABLE WITH THE 
BORDER PATTERN 



DISPLAY THE PROGRAM 
TITLE 



Follow the Instructions In Chapter Six for assembling and running this program. Since this 
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program alters the return address in the same way that the first sampie program did, it, too, 
will "freeze up" in order to allow you to view the results. Press QUIT (FCTN =) to exit from 
program control. The sample program is written for the Editor/Assembler. To code and run this 
program using the Line-by-Llne assembler, refer to Chapter Five for the steps to make the 
changes required. Here Is the listing for the Line-by-Llne assembler 



* SCREEN DISPLAY PROGRAM EXAMPLE * 

* MINI-MEMORY VERSION * 



* 






* 




AORG 


>7D0C 




vw 


EQU 


>6034 




vs 


EQU 


>6024 




VM 


EQU 


>6028 




WR 


BSS 


>20 




BD 


DATA 


>8080,>2020, 


>2020,>2020 




DATA 


>2020,>2020, 


>2020,>2020 




DATA 


>2020,>2020, 


>2020,>2020 




DATA 


>2020,>2020, 


>2020,>8080 


Ml 


TEXT 


•** PROGRAM 


NUMBER 2 **• 


GO 


MOV 


R11,R10 






LWPI 


WR 






LI 


R0,>0706 






BLWP 


@VW 






LI 


R0,>0390 






LI 


Rl,>6600 






BLWP 


@VS 






LI 


R0, >383 






LI 


Rl, >1F00 




CL 


BLWP 


0VS 






CI 


R0. >038F 






JEO 

U Ci V 


BP 






INC 








TMD 


\^ Li 




BP 


LI 


R0,0 






LI 


R1,BD 






LI 


R2,32 




BL 


BLWP 


@VM 






CI 


R0,736 






JEQ 


EX 






AI 


R0,32 






JMP 


BL 




EX 


LI 


R0,293 






LI 


R1,M1 






LI 


R2,22 






BLWP 


@VM 






CLR 


@>837C 






MOV 


R10,R11 






DECT 


Rll 






RT 








END 
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EDITOR/ASSEMBLER MANUAL REFERENCES 

The following references will provide you with some more Information on screen and character 
displays. 

Section 16.1 page 246 through Section 16.1 page 248 
Section 21.1 page 325 through Section 21.2.3 page 330 
Section 21.7 page 342 through Section 21.7.1 page 342 
Section 24.7 page 428 

Lool< up these terms in the glossary: 

Character Constant 
Character Set 
Character String 
Color Table 

Undlsplayable Characters 

Utilities 

VDP RAIVI 
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CHAPTER EIGHT 

PROCESSING KEYBOARD INPUT 

Accepting and processing data entered by tiie computer user from the Iceyboard is always an 
important program function. Tiie acceptance of i^eyboard input also implies manipulating ttie 
screen display as well. Wiienever you enter data by pressing keys you expect to see the 
characters you are typing displayed upon the screen as they are entered. In addition to 
entering data, you are accustomed to using special function key combinations to control 
operation of the computer. 

Several methods of accomplishing this were available to you in Tl BASIC. INPUT X is a Tl 
BASIC statement which can be used to input a numeric value. CALL KEY(X,Y,Z) is another 
statement that can detect specific icey strokes. These simple Tl BASIC commands are capable 
of performing tasks which are far more complex than is apparent from the Tl BASIC syntax 
that invokes them. 



The TMS9900 assembly approach to these objectives involves reading from and writing to VDP 
RAM and the use of a special routine called the Keyboard Scan Utility. This routine is 
accessed by including a REF KSCAN directive when programming with the Editor/Assembler 
or by EQUating the routine's address of >6020 to some 2 character label when using the Line- 
By-Line assembler. As with most of the preceeding subroutines dicussed, KSCAN needs to 
use the BLWP instruction to activate the utility. 

Besides the routine itself, there are also some special addresses you need to know about to 
make effective use of KSCAN. The value of the byte at address >8374 controls which 
keyboard device is to be scanned. A value of >00 scans the entire keyboard. A value of >01 
scans the left side of the keyboard Including Joystick number one. Values from the Joystick are 
placed at addresses >8376 (Y value) and >8377 (X value). A value of >02 at address >8374 
scans the right side of the keyboard and Joystick number two. The values from Joystick number 
two are placed at the same addresses as number one (> 8376, > 8377). The normal or default 
value at >8374 is >00 (scan entire keyboard). Another address is >837C, which has been 
used before, and is the address of the GPL status byte. Whenever a key is pressed that is 
different from the key pressed the last time KSCAN was called, bit 2 of the GPL status byte is 
turned on. The value of the key pressed is placed at address >8375. If no key was pressed, 
address > 8375 contains >FF. 

When data is keyed into the computer, you expect to see a cursor on the screen marking the 
start of the input field. As the data Is entered, you expect the cursor to move to the right and 
the data itself to be displayed where the cursor was. Lastly, if a mistake is made entering the 
data, you would like to be able to back up and re-enter data as long as Enter has not been 
pressed. 

Here is a fundamental subroutine for accomplishing the above scenario. Its name is CURSOR. 
It assumes that EQUates have been included for KEYADR EQU >8374, KEYVAL EQU >8375, 
STATUS EQU >837C and that BYTE directives are included for ENTERV BYTE >0D, LEFTV 
BYTE >08, RITEV BYTE >09, ANYKEY BYTE >20. For Line-By-Llne assembler, use DATA 
directives such as EV DATA >0D00, LV DATA >0800, etc. 
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******************************************************* 

* "CURSOR" SUBROUTINE. INPUT: R0 = SCREEN ADDRESS OF * 

* RESPONSE, R10 = MAX LENGTH OF RESPONSE. OUTPUT: R9 * 

* = LAST KEYSTROKE VALUE, R7 = ACTUAL LENGTH OF * 

* RESPONSE, RESPONSE DATA BEGINS AT R0 FOR A LENGTH * 

* OF R7 * 
******************************************************* 



01 


CURSOR 


CLR 


R9 


02 




MOV 


R10,R10 


03 




JEQ 


SCAN 


04 




CLR 


@KEYADR 


05 




LI 


R1,>1E00 


06 




BLWP 


laVSBW 


07 




MOV 


R0,R8 


08 




A 


R8,R10 


09 




MOV 


R8,R7 


10 


SCAN 


CLR 


^STATUS 


11 




BLWP 


©KSCAN 


12 




CB 


@ANYKEY,@STATUS 


13 




JNE 


SCAN 


14 




MOV 


R10,R10 


15 




JNE 


ENTCHK 


16 




RT 




17 


ENTCHK 


CB 


@ENTERV,@KEYVAL 


18 




JEQ 


ENTER 


19 




CB 


@LEFTV,@KEYVAL 


20 




JEQ 


LEFT 


21 




CB 


@RITEV,@KEYVAL 


22 




JEQ 


RITE 


23 




C 


R7,R10 


24 




JEQ 


SCAN 


25 




MOV 


R7,R0 


26 




MOVB 


@KEYVAL,R1 


27 




MOVB 


@KEYVAL,R9 


28 




BLWP 


lavSBW 


29 




INC 


R7 


30 


CURPUT 


MOV 


R7,R0 


31 




LI 


R1,>1E00 


32 




BLWP 


@VSBW 


33 




B 


@SCAN 


34 


LEFT 


C 


R7,R8 


35 




JEQ 


SCAN 


36 




MOV 


R7,R0 


37 




LI 


Rl,>2000 


38 




BLWP 


laVSBW 


39 




DEC 


R7 


40 




JMP 


CURPUT 


41 


RITE 


C 


R7,R10 


42 




JEQ 


SCAN 


43 




MOV 


R7,R0 


44 




LI 


Rl,>2000 
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45 


BLWP 


@VSBW 


46 


INC 


R7 


47 


JMP 


CURPUT 


48 ENTER 


LI 


Rl,>2000 


49 


MOV 


R7rR0 


50 


BLWP 


@VSBW 


51 


S 


R8,R7 


52 


RT 





Before dissecting this subroutine, here is how you would use it in your program. Before 
performing a BL ©CURSOR, place Into RO the beginning screen address where you want the 
keyed input to appear, into R10 place the maximum length of the data to be accepted, if you 
want to emulate a "PRESS ANY KEY" situation, place a length value of Into R10. The 
CURSOR routine will return to your program as soon as any key is pressed without capturing 
any data at all. Quite often when you want the computer user to respond to a prompt, the 
answer to be given is a one digit value. An example of this would be when the user is to 
respond "Y" or "N" or picl^ a number or letter from a menu. CURSOR always places the value 
of the last key pressed before Enter was pressed into the left byte of R9. For one digit replies, 
the reply value is available in R9 after returning from CURSOR without any moves or other 
manipulations. R7 will contain the actual length of the data which was entered. The actual 
number of characters keyed In may or may not be the same as the maximum allowable. 



01 CURSOR CLR R9 

02 MOV R10,R10 

03 JEQ SCAN 

04 CLR @KEYADR 

05 LI R1,>1E00 

06 BLWP @VSBW 



Line 1 of CURSOR clears register 9. Lines 2 and 3 check R10 for a value of zero, if a register, 
word, or byte is moved to itself, and the value of the item is zero, then the equal bit is set in 
the status register. Line 3 Jumps to the label SCAN if RIO Is zero. Liiie 4 clears addresses 
>8374 & >8375. The CLR instruction clears (sets to all zeroes) a full word of memory. 
Symbolic addresses KEYADR was EQUated to >8374. The CLR instruction clears this byte and 
the very next byte (>8375) also. >8375 Is the address of KEYVAL. With one instruction, you 
have specified that you want to scan the entire keyboard, and clear any previous key stroke 
value. Line 5 loads R1 with the character code for the cursor symbol (>1E). Line 6 writes the 
cursor symbol to the screen address you specified in RO before you branched to CURSOR. 



07 MOV R0,R8 

08 A R8,R10 

09 MOV R8,R7 

10 SCAN CLR @STATUS 



Line 7 saves the beginning cursor address in R8. Line 8 adds the beginning cursor address In 
R8 to the field length value in RIOJ0 determine the maximum cursor address. Line 9 moves 
ihe beginning cursor address into R7, which will be used as an accumulator of cursor address 
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values. Line 10 clears the GPL status byte. You need to start out with all zeroes in the status 
byte in order to detect any i^eystroke. 



Line 11 invokes the Keyboard Scan Utility. Line 12 uses the Compare Bytes (CB) Instruction to 
compare the value of the GPL status byte to >20. This is the value that will be present In the 
GPL status byte if any key has been pressed. At line 13 the Jump If Not Equal Instruction 
completes the comparison by returning to the label SCAN If no key has been pressed. Line 14 
checks RIO for zero again by moving It to Itself, and If RIO Is not equal to zero, It then 
proceeds to the label ENTCHK. If RIO Is equal to zero, line 16 returns (B * R11) to the calling 
program. 



17 ENTCHK 


CB 


@ENTERV,@KEYVAL 


18 


JEQ 


ENTER 


19 


CB 


@LEFTV,@KEYVAL 


20 


JEQ 


LEFT 


21 


CB 


@RITEV,@KEYVAL 


22 


JEQ 


RITE 


23 


C 


R7,R10 


24 


JEQ 


SCAN 


25 


MOV 


R7,R0 


26 


MOVB 


@KEYVAL,R1 


27 


MOVB 


@KEYVAL,R9 


28 


BLWP 


gVSBW 


29 


INC 


R7 



CURSOR jumps to line 17 If some key was pressed and RIO is not equal to zero. The first order 
of business is to determine If any special keys have been pressed. If the user has pressed 
Enter, they have finished entering data. The value at >8375 when the Enter key Is pressed is 
>0D. If the user wishes to correct his typing, he may press either the left or right arrow keys 
(FCTN S, FCTN D). The key value of the left arrow Is >08, and the key value of the right arrow 
Is >09. Lines 17 through 22 check for these conditions. Line 23 uses the Compare Words 
Instruction to compare the cursor address accumulator (R7) to the maximum cursor address 
(RIO). If they are equal, then the maximum allowable length of the data has already been 
reached. When this Is true, no more data is accepted by CURSOR, and the only key stroke 
values CURSOR will accept are Enter or left arrow. If the maximum has not been reached, 
lines 25,26, and 27 accept the key data. Line 25 copies the address at which the data will be 
displayed from R7 Into RO. Line 26 moves the value of the key stroke Into the left byte of R1. 
Line 27 saves the key stroke value in R9. Line 28 writes the character code (key stroke value) 
to the screen. Line 29 Increments R7, which Is the new address of the cursor symbol. 



11 
12 
13 
14 
15 
16 



BLWP 

CB 

JNE 

MOV 

JNE 

RT 



@KSCAN 

@ANYKEY,@STATUS 
SCAN 



R10,R10 
ENTCHK 
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30 CURPUT MOV R7,R0 

31 LI R1,>1E00 

32 BLWP @VSBW 

33 B @SCAN 



Line 30 places the new screen address that the cursor will occupy into RO. Lines 31 and 32 
write the cursor symbol to the screen. The visual effect is that the cursor has moved one 
space to the right, and the character keyed in appears at the previous position of the cursor 
symbol. Line 33 branches to the label SCAN to repeat the entire process and form the loop. 



34 


LEFT 


C 


R7,R8 


35 




JEQ 


SCAN 


36 




MOV 


R7^R0 


37 




LI 


Rl,>2000 


38 




BLWP 


@VSBW 


39 




DEC 


R7 


40 




JMP 


CURPUT 


41 


RITE 


C 


R7,R10 


42 




JEQ 


SCAN 


43 




MOV 


R7,R0 


44 




LI 


Rl,>2000 


45 




BLWP 


@VSBW 


46 




INC 


R7 


47 




JMP 


CURPUT 


48 


ENTER 


LI 


Rl,>2000 


49 




MOV 


R7,R0 


50 




BLWP 


@VSBW 


51 




S 


R8,R7 


52 




RT 





Lines 34 through 52 detail the actions to be taken when one of the special keys is pressed. 
LEFT moves the cursor to the left and fills the field with blanks. Line 34 checks to see if the 
current cursor address (R7) is already at the minimum value (beginning cursor address), if the 
cursor is as far left as it can go, no action can be taken. RITE does Just the opposite of LEFT. 
ENTER is the label the program Jumps to when it is determined that the user has pressed 
Enter, signaling an end to the input of data. Lines 48,49, and 50 remove the cursor from its last 
known screen position. Line 51 uses the Subtract words instruction. The contents of R8 are 
subtracted from the contents of R7, and the answer is placed in R7. This action subtracts the 
beginning cursor address (R8) from the last cursor address (RT). The difference between the 
two is the actual length of the data which was keyed in. The RT instruction at line 52 returns 
to the calling program. 

Suppose that a particular application requires that the computer user enter their full name. 
The maximum length of data that will be accepted has been detennined to be 30 letters (30 
bytes). It has also been determined that the data is to be accepted at row 10, column 1. Here 
are the program segments which prompt and accept this data. 
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PROMPT TEXT 



•ENTER FULL NAME ■ 



LI 



R0,256 



PUT 



UP PROMPT MESSAGE AT 



LI Rl, PROMPT ROW 9, COLUMN 1 

LI R2,16 

BLWP laVMBW 

LI R0,288 ROW 10, COLUMN 1 

LI R10,30 LENGTH OF DATA 

BL gCURSOR GET THE DATA 



At this point, the name entered is displayed on the screen beginning at row 10, column 1, and 
resides In VDP RAM at addresses 288 through 317, providing that the actual data length Is 30. 
To make use of this data in the program, you need to get It from VDP RAM Into the program. 
To accomplish this, you will need the VDP Multiple Byte Read routine (VMBR). Alternatively, 
you might also want to use the VDP Single Byte Read (VSBR). These routines operate much 
the same as VMBW and VSBW do. The only difference Is the direction In which the data 
moves. A read moves data from outside the program into the program. A write moves data 
from within the program to some point outside the program, such as VDP RAM. The same 
registers are used for the same parameters. RO Is used for the VDP RAM address. R1 and R2 
regulate the CPU RAM addresses. To use VMBR and VSBR, a REF directive must be included 
when using the Editor/Assembler, or the addresses of the routines must be EQUated to some 
two character label when using the LIne-By-Line assembler. VSBR = >602C, VMBR = >6030. 
Here are the TMS9900 assembly language Instructions to use the name data somewhere In the 
program: 



NAME ESS 30 SET ASIDE TEMP. STORAGE FOR NAME 



Remember that all data looks the same to the computer. Everything Is represented as a binary 
expression. When programming In assembly language, you must decide how data Is to be 
Interpreted. If a byte of memory contains the value >41, you must decide whether It means 
ASCII for "A", or If the value Is to be treated as purely numeric (sixty five). INPUT X In Tl 
BASIC will only let you enter a numeric string; anything else is rejected. In assembly language, 
you must provide for testing the Input data to see If It is numeric and for rejecting it If It Is not. 
Since the CURSOR routine will accept variable length data, you must also decide if variable 
length input is allowed or if the data must be fixed length. 



LI 
LI 
LI 



R0,288 

R1,NAME 

R2^30 



LOAD R0 WITH THE VDP RAM ADDRESS 
LOAD Rl WITH THE CPU RAM ADDRESS 
LOAD R2 WITH THE DATA LENGTH 
(assuming fixed length of 30 bytes) 
PERFORM VDP MULTIPLE BYTE READ 



BLWP 



@VMBR 



Try retrieving a numeric string from the user at the keyboard. To simplify this example. It Is 
required that the number be exactly four digits and a whole number or ail zeroes. 
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PROMPT TEXT 
NMTEST DATA 

NUMBER BSS 
• 

GETNUM LI 
LI 
LI 

BLWP 

LI 

LI 

BL 

C 

JNE 
LI 
LI 
LI 

BLWP 
CLR 
TEST CB 



•ENTER A 4 DIGIT NUMBER* DEFINE PROMPT MESSAGE 
>3039 LABEL NMTEST CONTAINS >30, ASCII FOR "0", 

AND >39, ASCII FOR "9" 
4 TEMP. STORAGE FOR THE NUMBER 

R0,256 SCREEN ADDRESS FOR PROMPT - ROW 9, COL 1 

Rl, PROMPT ADDRESS OF THE PROMPT 
R2,22 LENGTH OF THE PROMPT 

@VMBW DISPLAY THE PROMPT 

R0,288 SCREEN ADDRESS OF REPLY TO PROMPT 

R10,4 MAXIMUM LENGTH OF REPLY 

@CURSOR GET THE REPLY 

R7,4 IF ACTUAL LENGTH OF REPLY IS NOT 4 /REPEAT 

GETNUM THE PROMPT AND TRY AGAIN 

R0,288 ADDRESS OF REPLY 

Rl, NUMBER WHERE TO PUT REPLY 
R2,4 LENGTH OF REPLY 

@VMBR READ THE REPLY FROM VDP RAM INTO CPU RAM 

R3 SET R3 TO ZERO 

@NUMBER(R3) r@NMTEST COMPARE BYTE AT "NUMBER" PLUS 
VALUE OF R3 TO BYTE AT ADDRESS NMTEST 
1ST TIME THROUGH, R3=0 THUS NUMBER+0. 
BYTE AT NMTEST = >30 OR "0". IF BYTE 
AT NUMBER + R3 IS LESS THAN >30, IT 
CANNOT BE A VALID ASCII NUMERIC. GO TO 
GETNUM, TRY AGAIN. 



JLT GETNUM 
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CB @NUMBER(R3) ,@NMTEST+1 COMPARE BYTE AT NUMBER PLUS 

R3 TO BYTE AT NMTEST+1. BYTE AT 
NMTEST+1 = >39 OR "9". IF BYTE 
AT NUMBER + R3 IS GREATER THAN >39, IT 
CANNOT BE A VALID NUMERIC EITHER. 
ADD 1 TO R3 

COMPARE R3 TO R7 (R7 CONTAINS 4) 
IF R3 IS NOT EQUAL TO R7, THEN NOT 
DONE. GO BACK AND PERFORM TEST LOOP 
AGAIN. 



JGT GETNUM 

INC R3 

CI R3,R7 

JNE TEST 



If the check for a length of 4 Is replaced by a check for a length of zero, then these 
Instructions will work for variable length data. Example: 

MOV R7rR7 
JEQ GETNUM 

Now a 4 digit string has been retrieved. The actual values In the string are ASCII codes for 
numerals. The sequence of the numeric symbols represent a decimal number. If you want to 
use the value of this response for any kind of arithmetic anywhere in the program, it must be 
converted to a binary value. Here Is a sequence of TMS9900 assembly language Instructions to 
do Just that. This routine will only work for values up to 65,535 decimal, the maximum value of 
a word of memory. To use this routine In a program, place the numeric string Into NUMBER, 
place the length of the string Into R4, and perform a BL @CONVRT. The answer will be in R5 
upon completion of the routine in binary integer format. If the number to be converted is too 
large, R5 is set to all zeroes. This routine assumes that you are passing a valid numeric string 
to it. Therefore, you must check for ASCII numeric symbols before performing this routine in 
order to get a meaningful result. 



DTEN DATA >000A 
NUMBER BSS 6 



01 CONVRT CLR R0 

02 CLR Rl 
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03 




CLR 


R3 


04 




CLR 


R5 


05 


MOVN 


DEC 


R4 


06 




MOVE 


@NUMBER(R4) ,R2 


07 




SRL 


R2,8 


08 




AI 


R2,->30 


09 




MOV 


R0,R0 


10 




JNE 


EXP 


11 




LI 


R0,1 


12 




JMP 


ACCUM 


13 


EXP 


MPY 


@DTEN,R0 


14 




MOV 


R1,R0 


15 




MPY 


R1,R2 


16 




MOV 


R3,R2 


17 


ACCUM 


A 


R2,R5 


18 




JNO 


NEXT 


19 




CLR 


R5 


20 




RT 




21 


NEXT 


MOV 


R4,R4 


22 




JNE 


MOVN 


23 




RT 





Here is how this routine performs the ASCIi to binary conversion and some new instructions 
as weli. To heip in expiaining the iogic of the routine, assume that the number to be converted 
is decimal 234. Internaliy, the vaiue at address "NUMBER" can be represented by a series of 
hexadecimal numbers each of which represents a byte. R4 contains a vaiue of 3, the length of 
the string. 



>32 



>33 



I I 
>34|>00| 

I I 



NUMBER+3 



NUMBER+2 



NUMBER+1 



NUMBER+0 



01 CONVRT CLR R0 

02 CLR Rl 

03 CLR R3 

04 CLR R5 

05 MOVN DEC R4 

06 MOVB ©NUMBER (R4) ,R2 

07 SRL R2,8 

08 AI R2,->30 
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Lines 1 through 4 clear the registers which wiii be used in the routine. Line 5 DECrements 
(subtracts 1 from) R4. R4 contains the string iength. Line 6 accesses the iow order digit by 
using the base address of NUMBER pius the proper displacement. The string is comprised of 3 
digits, and the displacement values of the digits going from high order to low order are 0, 1, 2. 
The displacement value for the last byte in a given series of bytes is always the number of 
bytes minus one, in this case, 3-1 =2. "MOVN" Is the label which will be used to create a 
loop. The first time through the loop, line 6 moves the iow order byte (NUMBER plus the value 
in R4, NUMBER + 2) to R2. R2 now contains >3400. Line 7 performs a Shift Right Logical on 
R2 of 8 positions. R2 now contains >0034. Line 8 uses the Add immediate instruction to strip 
off the >30 mask. By using an immediate value of->30, the actual affect of this Al 
instruction is subtraction. 



09 MOV R0,R0 

10 JNE EXP 

11 LI R0,1 

12 JMP ACCUM 



Register 2 now contains >0004. Since the number sequence is a decimal number, you must 
multiply each digit by the power of ten which corresponds to its position in the sequence. The 
low order position of a decimal number represents units of 1. The first digit you have 
extracted multiplied by 1 would be equal to Itself. Therefore, the iow order digit can be used as 
It is. Line 9 moves RO to itself so that line 10 can check RO for a value of zero. JNE stands for 
Jump if Not Equal. The first time through, RO is equal to zero, and the JNE instruction at line 
10 has no effect. Line 11 Loads immediate RO with a value of 1. Line 12 performs an 
unconditional Jump to the label ACCUM. 



17 ACCUM A R2,R5 

18 JNO NEXT 

19 CLR R5 

20 RT 

21 NEXT MOV R4,R4 

22 JNE MOVN 

23 RT 



Continuing with the first time through, line 17, ACCUM, Adds the contents of R2 to R5. Should 
the value in R5 (which is being used as an accumulator for this routine) become too great to fit 
in R5, the overflow bit wiii be set in the status register. Line 18 checks for this condition with 
the Jump If No Overflow Instruction. As long as the overflow bit is not set, instruction logic 
continues at the label NEXT. If the overflow bit Is set, then the next two instructions clear R5 
and return to the calling program. At line 21, NEXT moves R4 to itself. Line 22 checks R4 for a 
value of zero by testing the equal bit in the status register. If R4 is equal to zero at this point 
in the logic of the subroutine, the subroutine's task Is done and line 23 returns to the calling 
program address. The first time through, R4 is equal to 2, and the routine Jumps to the label 
MOVN. 

The second pass through the routine takes a slightly different course. R4 is DECremented to 1. 
Line 6 moves the next byte of the number (>33) to R2. R2 Is shifted right 8 positions to 
become >0033, and the >30 mask Is removed giving >0003. RO now contains 1, so line 10 
triggers a Jump to the label EXP at line 13. 
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13 EXP MPY @DTEN,R0 

14 MOV R1^R0 

15 MPY R1,R2 

16 MOV R3,R2 



Line 13 uses the multiply (MPY) Instruction to calculate the power of ten which corresponds to 
the relative position of the decimal digit. The MPY Instruction multiplies the first and second 
operands (which must name a register ). The MPY Instruction uses two successive registers 
Just as the DIV Instruction does. Lil^e DIV, usage of the second register Is implied, meaning 
that the additional register is not specified anywhere in the Instruction. In the example, DTEN 
Is multiplied by the contents of RO, and the result ends up in R1 because R1 is the next 
register after RO. Now examine the contents of the locations involved. 



Before the MPY: DTEN R0 Rl 

>000A >0001 >0000 

After the MPY: 

>000A >0000 >000A 



Should the result of an MPY instruction be larger than one word, the result will continue on 
Into the named register. In this example, register would contain the most significant bits and 
register 1 would contain the least significant bits. The MPY Instruction does not affect the 
status register. 

Line 14 moves the answer of ten, which Is in R1, into RO. This is done to prepare RO for the 
next loop. On each pass through the loop, RO will be mutiplied by ten. In this way, the 
contents of Rl will be equal to the power of ten needed for each decimal position (1, 10, 100, 
1000, etc). Remember that a move merely copies the contents of one location to another. The 
contents of Rl are still intact At line 15, the value in R2, which is the numeral being converted 
(>0003) is multiplied by the value in Rl (the power of ten for the position of this numeral.) 
Here is the effect of the MPY instruction at line 15. 

Rl R2 R3 

Before the MPY: 

>000A >0003 >0000 



After the MPY: >000A >0000 >001E 



The result ends up in R3, the next available register after R2, which was the register named In 
the second operand of the MPY instruction. Line 16 moves the answer to R2. This is done 
because line 17, ACCUM, expects the value that Is to be added to R5 to be In R2. 

The loop Is repeated one more time to extract the high order digit. This digit represents units 



72 



Introduction to Assembly Language 



of 10 or 100. The number extracted Is 2. Multiplied by 100, it equals 200. Adding it to R5 by 
ACCUI\/I brings the total value in R5 to >OOEA, or 234 decimal. The value in R5 can now be 
used for any arithmetic that might be needed. 

You do not need to use an extensive routine like CURSOR in your program to interact with 
i<eyboard input or to make good use of a utility like KSCAN. in the first two program examples, 
the return address was altered in order to allow you to view the results of the program. Now 
that you know about KSCAN, here is a more proper way to end a program. The return address 
is unaltered, and in order to create a pause, KSCAN is used to detect the pressing of any key. 
The program will wait until some key is pressed and then end. Here are the program segments 
to do this: 



EOJ CLR @STATUS CLEAR THE GPL STATUS BYTE 

SCAN BLWP @KSCAN PERFORM KEYBOARD SCAN 

MOVB @STATUS,@STATUS COMPARE THE GPL STATUS BYTE TO >00 

JEQ SCAN IF NO KEY WAS PRESSED, SCAN AGAIN 

MOV @SAVRTN,R11 MOVE RETURN ADDRESS TO Rll 

CLR @STATUS CLEAR THE GPL STATUS BYTE 
RT RETURN VIA Rll 



Another application of KSCAN would be the detection of special key stroke values like Clear 
or Quit. Remember that while your TMS9900 assembly language program is running, it is In 
complete control of the computer. In order for the computer user to abort the program, the 
program must provide for the detection of such a command. Since these types of key strokes 
do not represent any dispiayable data, there is no need for a routine like CURSOR. Depending 
on how you program the actions to be taken for the various control values, your computer can 
respond to these commands accordingly. IHere are the program segments to detect Quit 
(FCTN =). 



QUITV BYTE >05 



SCAN CLR ^STATUS CLEAR THE GPL STATUS BYTE 

BLWP @KSCAN PERFORM KEYBOARD SCAN 

MOVB @STATUS,@STATUS SEE IF A KEY HAS BEEN PRESSED 

JEQ SCAN IF NOT, SCAN AGAIN 

CB @QUITV,@KEYVAL SEE IF "QUIT" WAS PRESSED 

JEQ ABORT IF IT WAS, GO TO END OF JOB 

RT IF NOT, RETURN 



Important: Before you abort a program, make sure you close any opened flies and clean up any 
other "loose ends." 

The usual response to pressing Quit while operating under Ti BASIC, Extended BASIC and 
most utilities is for the computer to return to the main title screen. Here are the program 
segments to accomplish this. 
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GPLWS EQU >83E0 



ABORT LIMI 2 

LWPI GPLWS 
BLWP @>0000 



ENABLE INTERUPTS 

LOAD GPL WORKSPACE REGISTERS 

BRANCH THROUGH THE VECTOR >0000 



The LIMI Instruction stands for Load Interrupt Mask Immediate and Is used to enable/disable 
an interrupt. LIMI (interrupts disabled) is tlie normal state of the computer. The instruction 
places the least significant 4 bits of the contents of the immediate operand in the Interrupt 
mask of the status register. Without interrupts, the CPU processes one instruction or piece of 
data after another. This processing sequence occurs at a steady pulse. Certain operations 
require that you inten^upt this orderly process, usually to allow for differences in speed 
between the various microprocessors which make up the computer. LIMI 2 enables Interrupts 
at levels 0, 1, and 2. Since the branch through >0000 returns to the main title screen by way of 
the GPL resident routine, it is necessary to have the WP register pointing to the workspace 
used by GPL. 

Here Is a chart which gives the key stroke values for the FCTN key and numeric key 
combinations. 



KEY STROKE VALUE 
COMBINATION NAME DECIMAL HEXADECIMAL 













FCTN 


1 


DELETE 


03 


>03 


FCTN 


2 


INSERT 


04 


>04 


FCTN 


3 


ERASE 


07 


>07 


FCTN 


4 


CLEAR 


02 


>02 


FCTN 


5 


BEGIN 


14 


>0E 


FCTN 


6 


PROCEED 


12 


>0C 


FCTN 


7 


AID 


01 


>01 


FCTN 


8 


REDO 


06 


>06 


FCTN 


9 


BACK 


15 


>0F 


FCTN 







188 


>BC 


FCTN 




QUIT 


05 


>05 



Here is a sample program which demonstrates some of the KSCAN principles. The border 
graphics and prompts use the same logic as the sample program in Chapter Seven. When the 
program Is run, any key you press will result in the character being displayed (providing it Is 
displayable), and the decimal value for the key or key combination is displayed also. The next 
prompt will only accept REDO or ESCAPE. REDO repeats the entire sequence, and ESCAPE 
will return to the main title screen. You can use this program to find the value for any key 
stroke or combination. 



74 



Introduction to Assembly Language 



The routine FIGUR uses the same logic as the first sample program to convert binary to 
displayable ASCII. FIGUR uses a loop to allow it to process any number that will fit into a 
single register. FIGUR handles both the conversion and the display of the value. 



♦KEYBOARD INPUT PROGRAM EXAMPLE* 
*EDITOR/ASSEMBLER VERSION * 





DEF 


GO 




DEFINE THE ENTRY POINT 




REF 


VWTR.VSBW, VMBW.KSCAN REF ROUTINES TO BE USED 


WR 


BSS 


>20 




SET ASIDE ALT. WORKSPACE 


STATUS 


EQU 


>837C 




GPL STATUS BYTE 


KEYADR 


EQU 


>8374 




KEYBOARD DEVICE ADDRESS 


KEYVAL 


EQU 


>8375 




KEYSTROKE VALUE ADDRESS 


DTEN 


DATA 


>A 




DECIMAL TEN 


BORDER 


DATA 


>FFFF,>2020, 


>2020 


,>2020 DEFINE BORDER PATTERN 




DATA 


>2020,>2020, 


>2020 


,>2020 




DATA 


>2020,>2020, 


>2020 


,>2020 




DATA 


>2020,>2020, 


>2020 


,>FFFF 


MSGl 


TEXT 


•** PRESS ANY KEY 


**• DEFINE 1ST PROMPT 


MSG2 


TEXT 


»* KEYSTROKE 


VALUE IS *• DEFINE 2ND PROMPT 


MSG3 


TEXT 


•* PRESS REDO/ESCAPE *• DEFINE 3RD PROMPT 


REDOV 


BYTE 


>06 




"REDO" VALUE 


ESCPV 


BYTE 


>0F 




"ESCAPE" KEY VALUE 


SAVll 


BSS 


2 






GO 


MOV 


R11,@SAV11 




SAVE RETURN ADDRESS 




LWPI 


WR 




LOAD WORKSPACE POINTER IMMEDIATE 




LI 


R0,>070D 




SET BACKGROUND BORDER TO MAGENTA 




BLWP 


@VWTR 








LI 


R0r>039F 




SET BORDER CHARACTER TO MAGENTA 




LI 


R1,>DD00 








BLWP 


(aVSBW 








LI 


R0,>380 




SET CHARACTERS TO BLACK ON WHITE 




LI 


R1,>1F00 






CLOOP 


BLWP 


@VSBW 








CI 


R0,>039E 








JEQ 


BPUT 








INC 


R0 








JMP 


CLOOP 






BPUT 


LI 


R0,0 




LOAD BORDER PATTERN 




LI 


Rl, BORDER 








LI 


R2,32 






BLOOP 


BLWP 


@VMBW 








CI 


R0r736 








JEQ 


EXIT 








AI 


R0,32 








JMP 


BLOOP 






EXIT 


LI 


R0,261 




PUT UP 1ST PROMPT 




LI 


R1,MSG1 








LI 


R2,22 








BLWP 


@VMBW 
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SCANl 



SCAN 2 



FIGUR 



ESCAP 



CLR 


@KEYADR 


CLR 


@STATUS 


BLWP 


@KSCAN 


MOVE 


@STATUS,@STATUS 


JEQ 


SCANl 


LI 


R0r325 


LI 


R1,MSG2 


BLWP 


@VMBW 


LI 


R0,395 


MOVE 


@KEYVAL,R1 


BLWP 


@VSBW 


MOVB 


@KEYVAL,R4 


SRL 


R4,8 


LI 


R3r404 


LI 


R0,406 


BL 


@FIGUR 


LI 


R0r485 


LI 


R1,MSG3 


LI 


R2,22 


BLWP 


@VMBW 


CLR 


@STATUS 


BLWP 


@KSCAN 


MOVB 


@STATUS,@STATUS 


JEQ 


SCAN 2 


CB 


@KEYVAL,@ESCPV 


JEQ 


ESCAP 


CB 


@KEYVAL,@REDOV 


JNE 


SCAN 2 


B 


@BPUT 


MOV 


R4,R5 


CLR 


R4 


DIV 


@DTEN,R4 


AI 


R5,>30 


SLA 


R5,8 


MOV 


R5,R1 


BLWP 


@VSBW 


DEC 


R0 


C 


R0,R3 


JHE 


FIGUR 


RT 




CLR 


gSTATUS 


MOV 


@SAV11^R11 


RT 




END 





CLEAR KEYADR & KEYVAL 
CLEAR GPL STATUS BYTE 
PERFORM KSCAN 

SEE IF ANY KEY WAS PRESSED 
IF NOT, SCAN AGAIN 
PUT UP 2ND PROMPT 



DISPLAY THE KEYED CHARACTER 



DISPLAY THE DECIMAL VALUE OF THE 
CHARACTER 

PUT UP 3RD PROMPT 



PERFORM KSCAN AGAIN 



ESCAPE OR REDO PRESSED? 
IF ESCAPE, GO TO ESCAP 



IF REDO, GO TO BPUT 
ROUTINE TO CONVERT INTERNAL VALUE 
TO DISPLAYABLE DECIMAL NUMERICS 
INPUT:R4=VALUE,R3=1ST SCREEN 

ADDRESS OF ANSWER, R0=LAST SCREEN 

ADDRESS 



CLEAR THE STATUS BYTE 
RETURN 



To try out this program using the Line-by-Line assembier, observe the coding differences 
previously outlined for the Editor/Assembler and Line-by-Line assembier products in Chapter 
Five. Here is the listing for use with the Line-by-Line assembler: 
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* KEYBOARD INPUT PROGRAM EXAMPLE * 



4 M T M T 
* MINI 


-MEMORY VERSION 


1* 


It 






K 




AUKVj 


> 




T7T«r 

vw 




>6034 




Vb 




>6024 




T rut 
VM 




>6028 








>6020 




IaTD 


ODD 


>20 




p»rn 




>A 




DU 




>8080,>2020, 


>2020,>2020 






>2020^>2020, 


>2020,>2020 






>2020r>2020. 


>2020,>2020 






>2020,>2020, 


>2020,>8080 


M 1 


LCtAl 


•** PRESS ANY KEY **• 




TP VT 


•* KEYSTROKE 


VALUE IS *• 


Wo 


TP VP 


•* PRESS REDO/ESCAPE *• 


b V 




>0F00 




K V 


TiA T A 


>0600 




cr^ 
bU 




Din t3 T n 
Kll ,H10 






r IaT D T 


WR 






r T 
LtX 


ft ^ ft ^ 

R0/ >0706 








@VW 






r T 
LiX 


R0,>390 






r T 


Rlr>6600 






RT WP 


@VS 






J-iX 


R0,>383 






r T 


R1,>1F00 








@VS 








R0r>38F 






TPn 


BP 








R0 






JMF 


CL 




BP 


LI 


R0,0 






r T 
Li± 


R1,BD 






r T 

Li 


R2,32 




o r 


BLWP 


@VM 






T 
CI 


R0r736 






T I? 

JEQ 


EX 






AI 


R0,32 






JMP 


BL 




EX 


LI 


R0,261 


PUT UP 1ST PROMPT 




LI 


R1,M1 






LI 


R2,22 






BLWP 


OVM 




SI 


CLR 


@>837C 


CLEAR GPL STATUS BYTE 




BLWP 


@KS N 


PERFORM KSCAN 




MOVB 


@>837C,@>837C SEE IF ANY KEY WAS PRESSED 




JEQ 


SI 


IF NOTr SCAN AGAIN 




LI 


R0r325 


PUT UP 2ND PROMPT 




LI 


R1,M2 
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o Lin c 


iQ vl 1 




I T 


s\v f -J 


DTSPFAY THP KRYPD PHARACTPR 




\9^0j I D ft\± 




RT UTD 


(a VD 






D 4 




flU VD 






CD r 






T T 

Li J. 


DO AaA 


HTQDT AV THP rjPPTMAT VAT IIP fiP THP 


T T 
Li J. 


D 01 A(A(^ 
t\.]0 f ft WD 


PHADAPTPD 


RT 
DLi 






r T 




PUT IIP "^Rn PROMPT 


T T 


Rl .M'^ 
rv X y 1 i 




LI 


R2 . 22 




BLWP 


^ V 1 1 




La k\ 


/' O J / v» 


PPRPnRM TfCiPAM ARATM 


RT WP 

o J-f vv t 






MOVR 

1*1 V U 


\g/'Oj 1 ^ t ^ y o o 1 \* 




.TPn 

UXIiSJ 






PR 




n pep A DP" OR "RPnO" O 


U Civ 


£iO 


TP PQPAPP (^n TH PCJPAP 


PR 


(nsft'57R QRV 




U iMCi 






D 
D 


/nR D 


TT? DPT^n TH RPIIT 


nu V 


R 4 R R 


RnilTTMP TH PHMVPRT TMTPRMAT VAT FIR 


PT D 


HA 
rv<4 


TH r»TQPTaVARTP HPPTMAT MIIMPRTPQ 
lU L>XDirLiriX/\D LiCi L'Ci^J.rlnLi LN UrliIiI\X V^O 


iJX V 


flfiT R A 


TMDIIT • D ^—^/A T IIP P*?— ICT QPRPPM ADDRP^^ 
J.JNir U 1 • rvft — VriLi UJli f rv J — ±D 1 DV^^rviliiliiN riUUrvCiOO 


AT 
r\ X 


RR . "^Ci 
r\ «J / X J JO 


np AM^WPR RCIstTA^T SrRRRN ADDRESS 


SLA 


RR . 8 




MDV 

I'lVi^ V 


R R R 1 




RT WD 
D LiW c 


(g VD 




DEC 


R0 




C 


R0,R3 




JHE 


FG 




B 


*11 




CLR 


@>837C 




MOV 


R10,R11 




B 


*11 




END 







EDITOR/ASSEMBLER MANUAL REFERENCES 

The following references will provide you with some more information on processing keyboard 
input. 

Read: Section 10.2 page 164 
Section 16.2 page 250 

Section 16.3 page 264 through Section 16.3.1 page 264 
Section 24.11 page 440 through Section 24.11.3 page 442 
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Look up these terms in the glossary: 

ASCII 
Console 

Interrupt Mask Bits 
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CHAPTER NINE 
FILE HANDLING 

The creation, reading, and updating of data files through TMS9900 assembly language is 
another important function which involves VDP RAM. File specifications describing a file's 
record length, length format, data and file format, and mode of operation are accumulated in a 
block of memory known as a Peripheral Access Block (PAB). The PAB details all the 
information required by the computer to recognize and access the flies you want. The reading, 
writing and updating of file data is handled by resident routines called DSRs, Device Service 
Routines. File management is implemented through TMS9900 assembly language by 
manipulating data within the PAB for a file and making the PAB data available to the correct 
DSR. 

When programming in Tl BASIC, you supplied ail of the parameters about a file in the OPEN 
statement, which opened the file and specified how the file was to be used, input, output, 
update or append. The file was then accessed within the program by INPUT or PRINT 
statements. When you were finished with the file, it needed to be closed. These four file 
functions, defining the file, opening the file, reading from or writing to the file, and closing the 
file, are always required of any programming language. TMS9900 assembly language requires 
a few more lines of code to accomplish the same result than Tl BASIC does, but file handling 
generally is not very complex. 

The first step is to define the file characteristics to the computer. The bytes of data which 
make up the PAB define the key parameters of the file. The actual number of bytes which 
make up a PA^ is variable, depending on the device/file name selected. The first byte (the zero 
byte) of the PAB instructs the Device Service Routine as to what operation you wish to perform 
(open, read, write, close, etc.) The initial setting of this byte for most files would be >00, or 
open. Here are the available op-codes for PAB byte zero. 



VALUE OPERATION 



>00 


OPEN 


>01 


CLOSE 


>02 


READ 


>03 


WRITE 


>04 


RESTORE/REWIND 


>05 


LOAD 


>06 


SAVE 


>07 


DELETE FILE 


>09 


STATUS 



Op-code >08 (scratch record) is generally not used by the Tl 99/4 or 99/4A because the disk 
controller does not allow a record to be scratched. 

The next PAB byte (the 1 byte) controls several functions. Depending on which bits are set on 
or off, it defines the file's open mode (input, output, update), record type (fixed, or variable 
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length), the type of data to be contained (display or internal format), and whether the file is to 
be processed sequentially or by random access (relative files). All of these parameters are 
defined by various combinations of bits 3 through 7 of the 1 byte. Bits 0,1, and 2 are used to 
report various error conditions as they occur. The initial setting of bits 0,1, and 2 should 
always be zeroes (no errors). Here Is a summary of PAB byte 1 values and their meanings. 



PAB BYTE 1 VALUES AND MEANINGS 
RELATIVE FILES - ALL RELATIVE FILES ARE FIXED LENGTH 



>01 UPDATE, DISPLAY 

>03 OUTPUT, DISPLAY 

>05 INPUT, DISPLAY 

>09 UPDATE, INTERNAL 

>0B OUTPUT, INTERNAL 

>0D INPUT, INTERNAL 

SEQUENTIAL FILES 

>02 OUTPUT, FIXED, DISPLAY 

>04 INPUT, FIXED, DISPLAY 

>06 APPEND, FIXED, DISPLAY 

>0A OUTPUT, FIXED, INTERNAL 

>0C INPUT, FIXED, INTERNAL 

>0E APPEND, FIXED, INTERNAL 

>12 OUTPUT, VARIABLE, DISPLAY 

>14 INPUT, VARIABLE, DISPLAY 

>16 APPEND, VARIABLE, DISPLAY 

>1A OUTPUT, VARIABLE, INTERNAL 

>1C INPUT, VARIABLE, INTERNAL 

>1E APPEND, VARIABLE, INTERNAL 



Bytes 2,3 (1 word) contain the address in VDP RAM which Is to be used as a buffer (temporary 
storage space) for each record as It Is read or written. Byte 4 defines the logical record length 
In bytes. For variable length records this value Is the maximum length. The largest value that 
can be defined using one byte Is >FF or 255. Byte 5 defines the number of bytes to be written 
for a write operation, or the actual number of bytes read for a read operation. For fixed length 
records PAB byte 4 and 5 should be set equal when writing, and will always be equal when 
reading. For variable length records PAB byte 5 can be tested to determine the actual record 
length on a read and can be dynamically changed for each write. The value in PAB byte 5 can 
never be greater than the logical, or maximum record length. PAB bytes 6,7 (1 word) are only 
used for relative (random access) files. This word contains the relative record number to be 
accessed. The most significant bit of this word is Ignored so that the range of possible values 
is from zero (the first record on a relative file) to 32,767. Byte 8 Is only used for files to be 
stored on a cassette tape device. The value in this byte Is the amount of screen offset (>60 in 
BASIC, >00 In assembly). The cassette DSR needs this value for the screen prompts it must 
display for operation of the cassette recorder. Byte 9 Indicates the length of the file descriptor 
which begins In byte 10. The file description can be of variable length. This is where you would 
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place the file/device name you have chosen for the file ("CS1", "DSK1.FILE", 
"RS232.BA=300", etc.). Since the actual length of this entry will vary depending on the device 
selected, the computer needs the length of this data in byte 9. l-iere is a PAB as it would be 
coded In a TMS9900 assembly program: 



OPERATION: >00 = OPEN 



FILE TYPE: >12 = OUTPUT, 
"VARIABLE, DISPLAY, 
SEQUENTIAL 

BUFFER ADDRESS IN VDP RAM 
"(SYMBOLIC OR ACTUAL) 



RECORD LENGTH: >50 (80) 
CHARACTER COUNT 



RELATIVE RECORD NUMBER 



CASSETTE SCREEN OFFSET 



T 
I 



FILE DESCRIPTOR 
"LENGTH 



PAB DATA >0012,BUFADR,>5000,>0000,>000A 

FILE DESCRIPTOR 

I 
I 



TEXT 'DSKLFILEl* 



THIS DESCRIPTOR IS >0A 
(10) CHARACTERS LONG 



PABs are coded in your program and then placed into VDP RAM with a routine such as VMBW. 
VDP RAM Is used by all DSRs for PABs and buffer space. Since there are many important 
tables and other data In VDP RAM, only certain areas should be used for PABs and buffers. 
The first free address in VDP RAM normally used for PABs is >F80. This address actually 
overlaps the end of the pattern descriptor table, but the character codes >F0 through >FF are 
not defined as displayable, so this usually does not cause any problems. VDP RAM free space 
extends through VDP RAM address >37D6. This represents a considerable amount of space 
for PAB and buffer needs. Be careful to use this space for only these functions. Where 
multiple files are to be used, enough space must be allocated between PABs and buffers to 
Insure file data integrity. Here are the program segments which establish a PAB and buffer. 
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BUFADR EQU >1000 VDP RAM ADDRESS FOR RECORD BUFFER 

PABADR EQU >0F80 VDP RAM ADDRESS FOR PAB 

PAB DATA >0012,BUFADR,>5000,>0000,>0009 

TEXT 'DSKl.FILE • 



LI R0, PABADR 

LI R1,PAB 

LI R2,20 

BLWP @VMBW 



Once the PAB and buffer for a file have been established, the actual access is accomplished 
via the Device Service Routine (DSR). By pointing to the PAB (file definition) to be accessed, 
manipulating byte zero of the PAB (operation), and branching to the DSR, the file can be 
opened, read from, written to, closed, etc. The DSR for all peripherals except cassette is 
accessed by including a REF DSRLNK in your program when using the Editor/Assembler, or by 
EQUating the address >6038 to some 2 character label when using the Llne-by-Line 
assembler. The cassette DSR is a GPL (Graphics Programming Language) routine located in 
GROM (Graphics Read Only Memory). Cassette file handling and DSRs will be covered later 
on. The pointer needed by DSRLNK is the address of the file descriptor byte. This value must 
be placed in the word at address >8356. For the above example: 



LI R6,PAB+9 
MOV R6,@>8356 



DSRLNK Is then Involved with a BLWP Instruction. DSRLNK also needs the value 8 passed to it 
to complete the Instruction. 



BLWP @DSRLNK 
DATA 8 



The same DSRLNK instruction Is used for any operation on any file except cassettes. The 
actual operation performed on the file by each BLWP to DSRLNK (open, read, etc.) depends on 
the value in PAB byte zero. The file to be accessed depends on the value you place at >8356. 
DSRLNK will determine if the file characteristics match the device, and If the operation 
requested is compatible with the device/file characteristics. Errors of this kind as well as end 
of file (disk), and other processing conditions are detected by DSRLNK and are reported in 
BITS 0,1,2 of PAB byte 1. Assuming no errors occur during file processing, DSRLNK handles 
all aspects of the process, such as updating the catalog entries for a disk file. Your TMS9900 
assembly language program must check for error conditions and provide for some action to be 
taken as a result. When errors do occur, the equal bit in the status register is set (1). If no 
errors occur, the equal bit In the status register is reset (0). 
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If the device you have selected Is either RS232 or TP (Thermal Printer), you must save the 
GROM read and GROM write addresses before each BLWP ©DSRLNK, and restore them 
afterwards. The DSRs for these devices render these addresses Indeterminate. Here are the 
program segments to save and restore these addresses. 

REF GRMRA 
REF GRMWA 



SAVADR BSS 2 



MQVB @GRMRA,(a SAVADR GET FIRST BYTE OF ADDRESS 
NOP 

MOVB @GRMRA,@SAVADR+1 GET SECOND BYTE 

DEC @SAVADR DECREMENT THE ADDRESS 



BLWP QDSRLNK 
DATA 8 



ACCESS PERIPHERAL 



MOVB @SAVADR,(aGRMWA RESTORE FIRST BYTE OF ADDRESS 
NOP 

MOVB @SAVADR+1,@GRMWA RESTORE SECOND BYTE OF ADDRESS 



In the above example, the pseudo Instruction "NOP" Is used to allow a time delay between 
accesses to the GROM addresses. NOP performs no function, but It takes up as much time as 
a real instruction would. NOPs can be useful In this way when there are timing considerations 
which dictate that your TMS9900 assembly program Idle while a slower area of the computer 
catches up. 

Here Is a program example of sequential file access. The input file contains variable length 80 
character records In display format. Each record contains a first name with a maximum length 
of 14 characters and a last name. The actual length of the last name field (and therefore the 
record) Is variable, although the first character of last name must begin in position 15. This 
program reads the file of names and selects the third record on the file. The first and last 
names of the third record are then displayed. 



0001 




DEF 


BEGIN 


0002 




REF 


DSRLNK,VSBW 


0003 


STATUS 


EQU 


>837C 


0004 


POINTR 


EQU 


>8356 


0005 


BUFADR 


EQU 


>1000 


0006 


PABADR 


EQU 


>F80 


0007 


READ 


BYTE 


>02 


0008 


CLOSE 


BYTE 


>01 


0009 


EOF 


DATA 






VMBW,VMBR,VSBR 

GPL STATUS BYTE ADDRESS 

DSR POINTER ADDRESS 

VDP RAM ADDRESS FOR RECORD BUFFER 

VDP RAM ADDRESS FOR PAB 

"READ" OP-CODE 

"CLOSE" OP-CODE 

END OF FILE FLAG 
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0010 


PAB 


DATA 


>0014,BUFADR 


0011 




TEXT 


•DSK2.FILE1* 


0012 


ERRMSG 


TEXT 


•I/O ERROR=' 


0013 


CPUBUF 


BSS 


80 


0014 


FNAME 


EQU 


CPUBUF 


0015 


LNAME 


EQU 


CPUBUF+14 


0016 


LEN 


BSS 


2 


0017 


RETURN 


BSS 


2 


0018 


WR 


BSS 


>20 


0019 


BEGIN 


MOV 


R11.0RETURN 


0020 




LWPI 


WR 


0021 




LI 


R0y PABADR 


0022 




LI 


R1,PAB 


0023 




LI 


R2,20 


0024 




BLWP 


@VMBW 


0025 




BL 


@DSR 


0026 




MOVB 


@READ,R1 


0027 




LI 


R0, PAB ADR 


0028 




BLWP 


@VSBW 


0029 




CLR 


R4 


0030 


READF 


BL 


@DSR 


0031 




MOV 


0EOF, 0EOF 


0032 




JNE 


EOJ 


0033 




INC 


R4 


0034 




CI 


R4,3 


0035 




JNE 


READF 


0036 




LI 


R0,PABADR+5 


0037 




BLWP 


@VSBR 


0038 




SRL 


Rl,8 


0039 




MOV 


R1,R2 


0040 




MOV 


R1,@LEN 


0041 




LI 


R0,BUFADR 


0042 




LI 


Rl^CPUBUF 


0043 




BLWP 


@VMBR 


0044 




LI 


R0,290 


0045 




LI 


Rl .FNAME 


0046 

my fJ ^ \J 




LI 


R2 . 14 


0047 




BLWP 


OVMBW 


0048 




LI 


R0. 305 


0049 




LI 


Rl . LNAME 






MOV 






* 


AT 




0052 




BLWP 


@VMBW 


0053 




JMP 


EOJ 


0054 


DSR 


LI 


R6,PABADR+9 


0055 




MOV 


R6,@P0INTR 


0056 




BLWP 


@DSRLNK 


0057 




DATA 


8 


0058 


* 







>5000,>0000,>000A PAB DATA 

DSR ERROR MESSAGE 

CPU RAM RECORD BUFFER ADDRESS 

FIRST NAME ADDRESS 

LAST NAME ADDRESS 

ACTUAL RECORD LENGTH WORKSPACE 

SAVE RETURN ADDRESS AREA 

WORKSPACE REGISTERS 

SAVE RETURN ADDRESS 

LOAD WORKSPACE POINTER 

VDP RAM ADDRESS FOR PAB 

CPU RAM ADDRESS OF PAB DATA 

LENGTH OF DATA 

WRITE PAB TO VDP RAM 

OPEN THE FILE 

LOAD READ OP-CODE INTO Rl 

LOAD PAB ADDRESS INTO R0 

PUT READ INTO PAB BYTE 

CLEAR RECORD COUNTER 

PERFORM DSR ROUTINE 

CHECK FOR END OF FILE 

IF EOF GO TO END OF JOB 

ADD 1 TO RECORD COUNT 

CHECK FOR THIRD RECORD 

IF NOT THIRD^ READ AGAIN 

ADDRESS OF CHARACTER COUNT 

READ COUNT INTO LEFT BYTE Rl 

SHIFT LEFT TO RIGHT 

MOVE VALUE TO R2 

SAVE VALUE IN LEN 

VDP RAM RECORD BUFFER ADDRESS 

CPU RAM ADDRESS FOR RECORD 

GET RECORD FROM VDP TO CPU RAM 

SCREEN ADDRESS FOR FIRST NAME 

CPU RAM ADDRESS OF FIRST NAME 

LENGTH OF FIRST NAME FIELD 

DISPLAY FIRST NAME 

SCREEN ADDRESS FOR LAST NAME 

CPU RAM ADDRESS OF LAST NAME 

MOVE RECORD LENGTH INTO R2 

SUBTRACT LENGTH OF FIRST NAME 

DIFFERENCE IS LAST NAME LENGTH 

DISPLAY LAST NAME 

GO TO END OF JOB 

LOAD R6 WITH DESCRIPTOR LENGTH 

MOVE ADDRESS TO POINTER 

PERFORM DSRLNK 

DATA NEEDED BY DSRLNK 
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0059 




JEQ 


DSRERR 


CHECK FOR ERROR 


0060 




RT 




RETURN 


0061 


DSRERR 


INC 


@EOF 


SET EOF INDICATOR 


0062 




LI 


R0,PABADR+1 


ADDRESS OF PAB BYTE 1 


0063 




BLWP 


@VSBR 


READ PAB BYTE 1 INTO Rl 


0064 




SRL 


Rl, 13 


SHIFT HIGH ORDER 3 BITS TO LOW 


0065 




CI 


Rlr 5 


CHECK FOR EOF VALURs^i 


0066 




JNE 


lOERR 


IF NOT EOF THEN OTHER ERROR 


0067 




RT 




IF EOF THEN RETURN 


0068 


lOERR 


AI 


Rl,>30 


MASK ERROR CODE 


0069 




SLA 


Rl,8 


SWAP LOW ORDER TO HIGH ORDER 


0070 




LI 


R0, 299 


DISPLAY ERROR CODE 


0071 




BLWP 


@VSBW 


ON THE SCREEN 


0072 




LI 


R0, 288 


DISPLAY ERROR MESSAGE 


0073 




LI 


R1,ERRMSG 




0074 




LI 


R2,10 




0075 




BLWP 


@VMBW 




0076 


EOJ 


MOV 


@EOFy @EOF 


IF EOF REACHED, DSR WILL 


0077 




JNE 


NOCLOS 


CLOSE FILE 


0078 




MOVB 


@CL0SE,R1 


MOVE CLOSE OP-CODE TO Rl 


0079 




LI 


R0,PABADR 


LOAD PAB ADDRESS 


0080 




BLWP 


@VSBW 


WRITE CLOSE OP-CODE TO PAB 


0081 




BL 


@DSR 


CLOSE FILE 


0082 


NOCLOS 


DECT 


©RETURN 


ALTER RETURN ADDRESS 


0083 




MOV 


@RETURN^11 


MOVE RETURN ADDRESS INTO Rll 


0084 




RT 




RETURN 


0085 




END 







Line 25 opens the file because the op-code in PAB byte zero is originally set at >00 (the op- 
code for "OPEN"). Lines 26,27, and 28 write the op-code for "READ" (>02) to PAB byte zero. 
Once this is done, each successive DSRLNK performs a read and will continue to perform 
reads until the op-code is changed to some other value. The subroutine "DSR" at lines 54 
through 60 contain the instructions and data which perform the DSR. Line 59 uses the Jump if 
EQuai instruction to test the equal bit in the status register. DSRLNK sets this bit if there are 
any errors. End of file is reported as an error with a value of 5 In bits 0,1,2 of PAB byte 1. Lines 
61 through 67 test for end of file, if end of file has been reached, then the word "EOF" is 
changed from zero to 1. DSRLNK will close the file for you if end of file has been reached. For 
this program example, end of file would only occur if the file contained fewer than 3 records. If 
the condition reported is something besides end of file, lines 68 through 75 display the error 
code and an error message. 

Lines 30 through 53 detail the actions which read through the file until the third record is 
found. Lines 36 and 37 extract the character count from PAB byte 5. VSBR (VDP Single Byte 
Read) reads from the address in RO into the left byte of Rl. The value from PAB byte 5 is the 
actual length of the record just read. This value is used along with VMBR to get the record 
from its VDP RAM buffer into a buffer which the program can access directly (lines 39 through 
43). Lines 44 through 47 get and display the first name. Lines 48 through 52 get and display the 
last name. The calculation at line 51 determines the actual length of the last name field by 
subtracting the length of the first name field from the actual record length which was found In 
PAB byte 5. 
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At end of job (line 76) a determination must be made as to wtiethier or not the fiie needs to be 
Giosed. To ciose the fiie, the op-code for "CLOSE" (>01)is written to PAB byte zero and one 
more access to DSRLNK is performed. Then the program foiiows previous examples which 
wait for some key to be pressed before ending, l-iere is a Tl BASiC program which wiii create a 
name fiie Wke the one used as input in the TMS9900 assembly language program example. 



100 CALL CLEAR 

110 OPEN #2:"DSK2.FILE1",OUTPUT, VARIABLE 80 

120 INPUT "ENTER AN E WHEN DONE":X$ 

130IFX$ = "E" THEN 190 

140 INPUT "FIRST NAME? ":FN$ 

150 IF LEN(FN$)>14THEN 140 

160 INPUT "LAST NAME? ":LN$ 

170 PRINT #2:FN$,LN$ 

180 GOTO 120 

190 CLOSE #2 

200 END 

Here Is a hexadecimal display of the fiie created by the Tl BASIC program. This was produced 
with the Tl Programming Aids II dislcette. While the BASIC program limits the size of the first 
name field to a maximum of 14 bytes, there is no such specification governing the size of the 
last name. If you Intend for a TMS9900 assembly language program to process a file created 
by a Tl BASIC program, It is Important that the Tl BASIC program be coded to specify definite 
field positions and field lengths. Or, as was done In this case, you can use a dump utility such 
as the one In Tl Programming Aids II to reveal how the file's records will appear to the 
assembly program. 



FILE TYPE IS DISPLAY 
RECORD TYPE IS VARIABLE 80 



13 


44 


41 


56 


(.DAV 


49 


44 


20 


20 


(ID 


20 


20 


20 


20 




20 


20 


20 


53 


( s 


54 


4F 


4E 


45 


(TONE 


14 


4D 


41 


52 


(.MAR 


56 


49 


4E 


20 


(VIN 


20 


20 


20 


20 




20 


20 


20 


53 


( s 


50 


41 


52 


4B 


(PARK 


53 


15 


57 


41 


(S.WA 


59 


4E 


45 


20 


(YNE 


20 


20 


20 


20 




20 


20 


20 


20 




4E 


45 


57 


43 


(NEWC 


4F 


4D 


45 




(OME 
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When creating files with TI\4S9900 assembly programs you must design the layout of each 
record. You decide how long each field can be and its beginning position within the record. 
One of the inefficiencies Tl BASIC is that it assigns string space within records in 
predetermined blocks of bytes. Unless you code the Tl BASIC program to structure each field, 
Tl BASIC follows a preset algorithm for field lengths. Alphanumeric strings, for example, 
always start out with a length of 14 bytes. In the case of the first name field, even If all the 
first names entered are never longer than 5 bytes, 14 byte strings are built for each. 
Discounting line 150, which restricts the field length, if the first name entered had a length of 
15 bytes, then an additional 14 byte block would be added to the first. Thus, a 28 byte block of 
string space would be created when a 15 byte space is all that is really needed. This waste 
becomes even worse with numeric strings. Even if a one digit number is entered, a 13 byte 
string space is created. 

When determining the size requirements of record fields with TMS9900 assembly language, 
you can and should make more efficient use of space. You can either define exact beginning 
and ending positions for fields, or where variable length fields are needed, you might use a 
special character to separate fields, or designate a byte which preceeds each field to contain 
the length of the field. For numeric items, if it is known that a value will only have a range of 1 
to 255 for example, then the value can be stored as a binary expression in only one byte. 

Any methodology that works for you can be valid, as long as you are consistent. Use your 
creativity and the flexit)illty of the TMS9900 language to design files which make efficient 
utilization of storage and memory. As long as the data files you create are to be used only by 
other TMS9900 assembly language programs which you have also coded, then any design that 
works for you will be acceptable. However, if you intend to process other kinds of files or feed 
the files you create to other kinds of programs, then you must know to what specification the 
file and record layout has been geared. When this information is not available, the dump utility 
from Tl Programming Aids II can be of great help. This utility Is strongly recomended both as a 
handy tool and as a key to understanding how records and files are created by Ti BASIC. 

Relative record (random access) files allow direct access to any record on the file without the 
need to read through the entire file as is the case with sequential files. Not only can this 
feature be used to randomly access a single record, but It can also be used to position the 
read/write head of the disk drive on a particular record. Then, you could read the following 
records sequentially. Relative record files can also be read from front to back, or back to front 
sequentially as well. All relative record files must utilize fixed length records. PAB bytes 4,5 
(record length and character count) should be equal. 

The coding and establishment of PABs and buffers for relative record files Is identical to that 
of the previous example. The design of a subroutine to perform the DSR can be exactly like 
that of the sequential example. The type of access you can perform on a relative file depends 
on how the file Is opened. Input allows you to read only. Output allows you to write only. 
Update lets you read and write. Append will let you add records to the end of a previously 
created file. 

The key to random access Is manipulation of the relative record number in PAB bytes 6 and 7. 
If these bytes contain all zeroes on your first read, and you Issue successive reads without 
altering the relative record number, DSRLNK will increment the value for you. To know which 
record you are about to read or write, get the relative record number from PAB bytes 6,7 before 
each DSRLNK. Here are some Instructions which do this. 
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RELREC 



BSS 



2 



STORAGE FOR NUiVIBER 



LI 



R0,PABADR+6 



ADDRESS IN PAB OF 
RELATIVE RECORD NUMBER 



LI Rl, RELREC 
LI R2,2 
BLWP @VMBR 



LENGTH OF READ 
GET THE NUMBER 



- 2 BYTES 



Likewise, if you wisli to read a specific record from a relative file, you must place the relative 
record number into PAB bytes 6,7 before the DSRLNK is executed. The above instructions will 
vjork for this if you replace ViVIBR with VI\4BW. The effect of trying to read a non-existent 
relative record would be an end of file error (5) and DSRLNK will close the file. 



CASSETTE DSR 

The DSR routine for cassettes is located in GROI^ and is one of the resident GPL (Graphics 
Programming Language) routines. When creating files on cassette several restrictions must be 
observed. Cassette files must be of fixed record length and the record length must be a 
multiple of 64 (64, 128 or 192). Cassette flies can only be opened as input or output. There is 
no end of file detection with cassettes. You must create an end of file record as the last 
record on a cassette file and code any program which reads the file to detect whatever end of 
file data you created. 

To access the cassette DSR or any of the other GPL routines. Include a REF GPLLNK in your 
program when using the Editor/Assembler or EQUate the address >6018 to some valid two 
character label with the Line-by-Llne assembler. When using the cassette DSR or other GPL 
routines, the automatic run feature (including the entry point address with the END directive) 
cannot be used. 

The biggest difference with cassette file handling is the cassette DSR itself. Remember when 
coding the PAB data for your cassette files to use the correct value for PAB byte 8 (screen 
offset). For a stand-alone assembly program, this value should be >00. If your assembly 
program is called from BASIC, then this value must be >60. IHere is a program example which 
uses a cassette file. This program writes 10 records to a cassette device. In truth, this program 
does not create any valid data for each record, it is merely an example of cassette access. Any 
actual data gathering or manipulation is up to you. 



01 




REF 


GPLLNK , VSBW , VMBW , KSCAN 


02 


STATUS 


EQU 


>837C 


03 


FAC 


EQU 


>834A 


04 


PABBUF 


EQU 


>1000 


05 


PAB 


EQU 


>F80 


06 


PDATA 


DATA 


>0002,>1000,>8080,>0000,>0003 


07 


DEV 


TEXT 


'CSl • 


08 


RETURN 


BSS 


2 


09 


WR 


BSS 


>20 


10 


START 


MOV 


R11,@RETURN 


11 




LWPI 


WR 
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12 




LI 


R0,PAB 


ESTABLISH PAB 


13 




LI 


Rl^PDATA 




14 




LI 


R2,14 




15 




BLWP 


@VMBW 




16 




BL 


@DSRCAS 


OPEN FILE 


17 




LI 


Rl,>0300 


ENABLE WRITE 


18 




LI 


R0,PAB 




19 




BLWP 


@VSBW 




20 




CLR 


R6 




21 


CPUT 


BL 


@DSRCAS 


WRITE A RECORD 


22 




INC 


R6 


ADD 1 TO RECORD COUNT 


23 




CI 


R6,10 


CHECK FOR 10 RECORDS WRITTEN 


24 




JLiS 


CPUT 




25 




LI 


Rl,>0100 


ENABLE CLOSE 


26 




LI 


R0,PAB 




27 




BLWP 


@VSBW 




28 




BL 


@DSRCAS 


CLOSE FILE 


29 




JMP 


EOJ 


GO TO END OF JOB 


30 


DSRCAS 


CLR 


^STATUS 


CLEAR GPL STATUS BYTE 


31 




CLR 


@>83D0 


CLEAR ADDRESS >83D0 


32 




LI 


R3f 3 




33 




MOV 


R3,@>8354 


PLACE VALUE OF 3 AT >8354 


34 




MOV 


@DEV,@FAC 


PLACE DEVICE NAME AT FAC 


35 




MOVB 


@DEV+2,@FAC+2 


36 




LI 


R3,>0800 
R3,@>836D 




37 




MOVB 


PLACE VALUE OF 8 AT BYTE >836D 


38 




LI 


R3,PAB+13 
R3,@>8356 




39 




MOV 


ESTABLISH DSR POINTER 


40 




BLWP 


@GPLLNK 


PERFORM CASSETTE DSR 


41 




DATA 


>003D 




42 


* 








43 




RT 




RETURN 


44 


EOJ 


CLR 


©STATUS 


CLEAR STATUS 


45 




BLWP 


@KSCAN 


WAIT FOR SOME KEY TO BE PRESSED 


46 




MOV 


@STATUS,@STATUS 


47 




JEQ 


EOJ 




48 




CLR 


©STATUS 




49 




MOV ( 


@RETURN,11 




50 




RT 




RETURN 


51 




END 







The heart of this program example Is the cassette DSR routine at lines 30 through 43. The GPL 
status byte and address >83D0 must be all zeroes. The device name ('CSV') must be placed at 
address >834A and the length of the device name (3) must be at >8354, >8355. The value 8 
must be In the byte at address >836D to Indicate a DSR call. The PAB pointer address must 
be placed at address >8356 as In the other DSR examples. However, with the cassette DSR, 
this value must point to the byte after the device name "CS1" (PAB + 13). GPLLNK Is Invoked 
with a BLWP Instruction and needs the value >3D passed to It to complete the Instruction. 
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In this program example, the open causes the "REWIND CASSETTE" prompt to appear. The 
write prompts "PRESS CASSETTE RECORD," and the close prompts "PRESS CASSETTE 
STOP." 



EDITOR/ASSEMBLER MANUAL REFERENCES 

The following references will provide you with some more information on file handling. 

Section 16.2.2 page 251 
Section 16.2.4 page 262 

Section 16.5 page 270 through Section 16.5.4 page 271 
Notes on GROM access: 

1. Accesses to GROM/GRAM must be separated by at least one instruction to accomodate 
differences in hardware performance. 

2. GROM addressing is auto-incrementing. That is, after each access to a GROM address the 
address is automatically incremented by one by the computer. 

3. GROM addresses are written most significant byte first. 

4. When the GROM/GRAM read address (GRMRA) is read, the GROM address is destroyed and 
must be restored if required by the program. 



Section 18.1 page 291 through Section 18.3 page 303 
Section 24.12 page 443 through Section 24.12.4 page 444 

Look up these terms in the glossary: 

Device Service Routine 

DSR 

Field 

File 

GPL 

GROM 

Mode Of Operation 
Peripheral Access Block 
PAB 
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CHAPTER TEN 

SORTING AND HANDLING ARRAYS 

The sequencing of data into a prescribed order, or sorting, is a prime example of table 
handling. A recurring theme throughout this text is the edge which TMS9900 assembly 
language holds over Tl BASIC in speed and performance. Perhaps no other tasi< can better 
illustrate the speed of TMS9900 assembly language than sorting. Conversely, sorting is one of 
the best examples of the shortcomings of Tl BASIC in terms of computing speed. 

Sorting is a task which involves a lot of computer overhead, a large number of repetitive 
actions which are time consuming in any language. There are several approaches to sorting 
which seek to alleviate the number of repetitions required to accomplish the sort. None of 
these various approaches involve any magical gimmicks and they ail rely to a large extent on 
the processor involved to rapidly process the logical actions involved. As the number of 
records involved grows so does the amount of time required to sort them. Since speed and 
performance are critical to sort performance, the logical choice of a language to write the sort 
program in is assembly. 

It is not the intent of this section to teach you ail about sort theories but rather to illustrate 
how a simple sort can be implemented by using TMS9900 assembly language and the various 
instructions, subroutines, and methodologies covered so far. If you want to get serious about 
writing sort programs and learn some of the various approaches to sorting which are available, 
there are many books devoted to sorting, merging, and other processing of lists. Some of 
these are: 

Lorin, Harold, SORTING AND SORT SYSTEMS, Reading, MA: Addison-Wesiey, 1973. 

Knuth, D. E., THE ART OF COMPUTER PROGRAMMING, Reading, MA: Addison-Wesiey, 1973. 

Fiores, Ivan, COMPUTER SORTING, Englewood Cliffs, NJ: Prentice-Hail, 1969. 

The sort program given in this section does not use any instructions or routines which have 
not already been covered. Some of the routines whose names you will recognize have been 
enhanced over previous examples or are used in new and different ways. Things such as 
program titles, prompts, color graphics, keyboard interaction, and file handling are all based 
on the examples and explanations given in previous sections. The actual sort logic used is 
rather crude compared to some of the more advanced techniques which are available. This 
simplistic approach provides a more easily understandable model and still runs quite fast 
because of the inherent speed of the TMS9900 assembly language and the TMS9900 
microprocessor. 



The file of data to be sorted is very similar to the first and last name file example of a previous 
section. However, to facilitate faster processing it is assumed to be a relative file with fixed 
length 80 byte records. In larger computers with much higher storage capacities it is feasible 
to process most any format file by loading its data into some work area in the form of a table 
and manipulating the data from there on. With the small number of records on the example file 
this approach could be taken using the home computer as well. The relative file format allows 
for the processing of a file as if it were already a table and uses the storage device (disk) for 
storage of the table rather than CPU RAM. 
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One of the basic tricks of sorting wiiich eludes many beginners Is that you do not need to sort 
entire records of data. The only data needing to be sorted is that data which makes up the sort 
key, the field or fields on which the file is to be sorted. This is providing of course that each of 
these sort keys can be associated with the record to which it belongs. This is where the 
relative record number (which may be thought of as a table subscript) comes into play. The 
basic premise of this program is to create an internal table, each entry of which is comprised 
of the sort key and relative record number of each record. This data is then sorted into the 
desired sequence. The table is then processed sequentially to get each record by way of its 
relative record number, and a new file is written which is in the sorted sequence. The storage 
capacity of a single-sided single-density diskette is about 90K bytes. This amount is far greater 
than the available CPU storage, so it is impossible to load this many bytes worth of records 
into memory at once. With this type of sort program however, tackling a file this large is 
feasible. In an assembly program, a record number stored in binary would occupy one word or 
two bytes. If the diskette contains 358 records of 250 bytes each, and the sort key data for 
each record Is 20 bytes in length, then the amount of storage needed for the sort table would 
be (Sort Key Length + Relative Record Length) x Number of Records, or, (20 + 2) x 358 = 
7,876 bytes. 

Some sort approaches allow for in-place sorting of the original file. This program creates 
instead a new sorted file and preserves the original or "master" file's integrity. One drawback 
to the in-place sort is that, if for some reason, a processing error occurs, the original file might 
be damaged or lost if no backup copy was made. This approach also allows for the original 
data file to exist as many different files, each in its own sequence. This can be useful when it 
is necessary to process the same data from more than one sort key. 
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Here is the sort program. 



0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 



KEYVAL 

STATUS 

PABIN 

PABOUT 

RECBUF 

PNTR 

CLOSE 

WRITE 

READE 

ENTV 

LEFTV 

RITEV 

CURVAL 

REDOV 

QUITV 

CURPAT 
BORDER 



ERRMSG 

TITl 

TIT2 

TIT3 

TIT4 

TIT5 

TOTl 

T0T2 

ORDl 

EQLN 

WATFLD 

FIELDl 

FIELD2 

VERIFY 

EOF 

SAVRTN 

FLDLEN 

TBFEND 

TAEEND 

TABLEN 

BLINK 

DTEN 

RELREC 

TBMARK 

INFILE 



DEF 

REF 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

EVEN 

DATA 

DATA 

DATA 

DATA 

DATA 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



SORT 

VMBW , VWTR , VMBR , VSEW , KSCAN , DSRLNK , VSBR 

>8375 

>837C 

>F80 

>FA0 

>1000 

>8356 

>01 

>03 

>02 

>0D 

>08 

>09 

>1E 

>06 

>05 



>007E,>4242, 
>FFFF,>2020, 
>2020,>2020, 
>2020,>2020, 
>2020,>2020, 
I/O ERROR 
Chapter 10 
Output Fil 
Sort 
End 

Press Any 
Reco 
======Input 

<A>scend 



>4242,>7E00 
>2020,>2020 
>2020,>2020 
>2020,>2020 
>2020,>FFFF 
1 CODE= • 

Sort Program 
e/Device Name? 
ing Now 

Of Job 

Key To Continue 
rd Count 

===Output ======== 

<D>escend > 



What Field# To Sort On > 

First name 1 

Last name 2 

Screen Complete - Redo? 
>0000 
>0000 
>000E 
>000D 
>000F 
>0010 
>0BA0 
>000A 
>0000 
>FFFF 

>0005,RECBUF,>5050,>0000,>000A 
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0049 




TEXT 


• OCt/1 CTTCI 

■ DoKl • rILEl 


1 




OUTr LE 


TV A on A 


s. 01 01 Ol "3 DPr'niii? 


xcrOICOt NOiOfOIOI SOIOIOKTi 
^jiOjiUf yiO^OiOiOf ?V)Y)y)\0 


0051 






JJoJ\ 


1 


fli /a c o 

00bz 


Utr 1 lUJM 


coo 


Z 




n n c 

0053 


T M D f T 1? P 


D C C 
ObO 


Q 01 






T?M & MI? 




T M U T 1 17 17 




iOiODD 






TMRITCPxl A 




fTI 01 R C 


nUTR I IT? 

uu lour 


OOO 


O 10 




01 fil C7 
tOiOD / 


nijJJ i no 


DOO 


S 1 (71 




01 01 Q 




DOO 


<^ z 10 




f% n c c% 
005b^ 




D C C 
Obb 


S. 1 0[ OJ 01 




n n c n 
0060 


bORT 


MUV 


Kll f (abAVKi JM 


OnVCt KCilUKLM r\JJl^rvCiOO 


0061 




LWPl 


M iKCib 


r HAH IaTODI^CDAPP DnTMTPP 


m n c o 

0062 




LI 


DO! s. n C C 
Hy , >l!3 /DO 


OJljI DUKUlliK Vi^ULiUrv 1 VJ Ut\t\C\ S\£iU 


/7i m f o 

0063 




tJLWF 


(g vW IK 




0064 




LI 


D 01 S. Ol O O 01 


CPT PHAD QPTC! Tn WHTTP /RT IIP 
oiiii \^n/\K oiiiio xu wn J. 1 jli/ oxjuci 


m in f c 

0065 




T T 

LI 


D 1 S. I? ^ 01 01 

Kl , >r tkViVj 




Ol /I £ £ 


LUUr 1 




@ VodVv 










D 01 




006o 




CI 


D 01 N. 01 *3 QT7 


QPT RHOriPR PHARAPTPR TD RRD 


01 01 C Q 




U i 






0( 01 T 01 




Li J. 






00/1 






IQ VODW 




m fit T o 

0072 




LI 


D Ol V Of O I? 01 

R0, >0or V) 


rnAH PIIDCnD DATfPRM 
LUAJJ UUKoUK JrAllLKlN 


/T( »7 O 

0073 




LI 


Kl r L UKPAi 




0074 




r T 
LI 


DO Q 




0075 




dLWP 


@ VMiJW 




0076 


on /^lui nn 
PROM PT 




n o n I? I? M 
gbLKLLM 


CPT fID HTCDTAV PRADHTPQ 
bcil UP UlOlrLAx uK/iirrlXCO 


0077 




LI 


R0/ 66 




/X /Ti T O 

0078 




LI 


Kl ,1111 




0079 




oLWP 


@ VMdW 


UlbPLAx JrKUuKAn 1 1 1 LiCi 


n no fx 

0080 




LI 


D 01 1 "3 01 




Ol 01 o 1 

00ol 




LI 


Kl , 1 1 1 Z 


DROMOT POR nilTPIIT HPVTPP 
irKUriirX C\Jt\ UUXirUX Uliv±\^SU 


01 01 o o 




n T TaT D 

oLWP 


OT/'MRTaT 
\Q VMtSW 




Ol Ol o o 

0083 




LI 


D 01 1 Q C 

Ku , ly D 




/7i n o ^ 

0084 




LI 


D 1 01 1 C 

Kl , 15 




01 Ol o c 

00o5 




D T 

dL 


(dv^UKoUK 


PPT nilTDIIT nP^/TPP MAMP 


m m o f 
0086 




M r\'\T 


K//@OUl£ LCiTO 


Mm/P PTT P nPQP T(^H TH PAR 


n no 'J 

0087 




r T 
LI 


D Ol 1 n c 
R0 ,195 




/I 

0088 




LI 


R1,OUTFLE+10 




/I /I O 

0089 




MOV 


R7f R2 




fi n i\ ft 

0090 




BLWP 


@VMBR 


DPA'n 'nPT7TPP MAMP TMTTi PAR 


0091 


WHTFLD 


LI 


R0,258 


WHICH FIELD TO SORT ON? 


0092 




LI 


R1,WATFLD 




0093 




LI 


R2,28 




0094 




BLWP 


@VMBW 




0095 




LI 


R0,290 




0096 




LI 


R1,FIELD1 
@VMBW 




0097 




BLWP 




0098 




LI 


R0,322 
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0099 




LI 


R1,FIELD2 




0100 




BLWP 


eVMBW 




0101 




LI 


R10,l 




0102 




LI 


R0,282 




0103 




BL 


@CURSOR 


GET FIELD # CHOICE 


0104 




CI 


R9r>3100 


VERIFY RESPONSE = "1" OR "2" 


0105 




JLT 


WHTFLD 




0106 




CI 


R9,>3200 




0107 




JGT 


WHTFLD 


IF NOT, PROMPT AGAIN 


0108 


ORDER 


LI 


R0,418 


PROMPT ASCEND/DESCEND ORDER? 


0109 




LI 


R1,0RD1 




0110 




BLWP 


eVMBW 




0111 




LI 


R10^1 




0112 




LI 


R0,443 




0113 




BL 


©CURSOR 


GET ORDER CHOICE 


0114 




CI 


R9/>4100 


VERIFY RESPONSE = "A" OR "D" 


0115 




JLT 


ORDER 




0116 




JEQ 


VERIF 




0117 




CI 


R9,>4400 




0118 




JNE 


ORDER 


IF NOT, PROMPT AGAIN 


0119 


VERIF 


LI 


R0,706 




0120 




LI 


Rl, VERIFY 




0121 




BLWP 


@VMBW 


VERIFY CHOICES MADE 


0122 




CLR 


R10 




0123 




BL 


QCURSOR 




0124 




LI 


R0,443 




0125 




BLWP 


@VSBR 




0126 




MOVB 


RlrgOPTION 


SAVE ORDER OPTION 


0127 




LI 


R0,282 




0128 




BLWP 


@VSBR 




0129 




MOVB 


R1,@0PTI0N+1 


SAVE FIELD OPTION 


0130 




LI 


R0,PABIN 


ESTABLISH INPUT FILE PAB 


0131 




LI 


Rl^INFILE 




0132 




LI 


R2,20 




0133 




BLWP 


@VMBW 




0134 




BL 


@DSRIN 


OPEN INPUT 


0135 




MOVB 


@READB,R1 




0136 




BLWP 


@VSBW 


PUT READ OP-CODE INTO PAB+0 


0137 




BL 


©SCREEN 


REDO SCREEN GRAPHICS 


0138 




LI 


R0,226 




0139 




LI 


R1,T0T1 


DISPLAY RECORD COUNT HEADING 


0140 




BLWP 


@VMBW 




0141 




LI 


R0,258 




0142 




LI 


R1^T0T2 




0143 




BLWP 


@VMBW 




0144 




LI 


R8,SRTTAB 


DEST. ADDRESS FOR MOVWRD RTN 


0145 




MOV 


@FLDLEN,R9 


FIELD LGTH FOR MOVWRD RTN 


0146 




CLR 


@EOF 




0147 


READ 


LI 


R0,PABIN+6 


PAB ADDRESS OF REL RECORD # 


0148 




LI 


Rl^RELREC 
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T T 
Ltd. 


P 9 






OijWir 




K/ J. ^ X 




MOV 


flRRLREP R4 


K/ -i- ■J ^ 




LI 


R3. 2Q5 


0153 

Xf mlm oj 




LI 


R0. 300 


0154 




BL 


OFIGUR 


0155 




BL 


@DSRIN 


0156 




MOV 


flEOF . flEOF 


0157 




JNE 


DONEl 


0158 




LI 


R0,RECBUF 


0159 




LI 


Rl/ INBUFF 


0160 




LI 


R2, 80 


0161 




BLWP 


@VMBR 


0162 




LI 


Rl. >3100 


0163 




CB 


Rl, 0OPTION+1 


0164 

V aL V "3 




JNE 


MOVLNM 


0165 




LI 


R7 .FNAME 


0166 




JMP 


MOVS 


0167 


MOVLNM 


LI 


R7 . LNAME 


0168 

K/ X U U 


MOVS 


BL 


flMOVWRD 


0169 




MOV 


ORELREC . *R8+ 


0170 




JMP 


READ 


0171 


DONEl 


MOV 


0TBMARK- *R8 


0172 




LI 


R0 . "^22 


0173 




LI 


Rl . EOLN 






LI 


R2. 28 


0175 




BLWP 


@VMBW 


0176 




LI 


R0. 354 


0177 




LI 

XJ X 


Rl . TIT3 


0178 




BLWP 


taVMBW 


017Q 




LI 

XjX 


R5 . ^4400 


1 P0 

K/ J. O K/ 


COM PAR 


LT 

uX 


R 1 SRTTAR 


0181 

K/ X O X 


GETTAB 


MOV 

1 IV V 


Rl R"^ 
x\ X f rv ^ 


01ft2 




MOV 

1*1 W V 


R 1 R 9 






JV 

r\ 


flTRPPMn R9 






MOV 


P P ^ 


K/ X O <^ 




A 


flTARF PM R4 


v xO O 




C 


/nTRMAPI? *P^ 






JEQ 


I/UIN Hi ^ 


K/ X O O 




MOV 


R R0 


01 RQ 




MOV 


R4 R 1 




ORDCHK 


CB 


KD f @ Ulr i XUiN 


0191 




JEQ 


CLOPD 




* ASCENDING 


ORDER * 


0192 


CLOP 


C 


R3,R2 


0193 




JEQ 


GETTAB 


0194 




CB 


*R3+^*R4+ 


0195 




JEQ 


CLOP 


0196 




JGT 


SWIT 


0197 




JMP 


GETTAB 



GET RELATIVE RECORD NUMBER 



DISPLAY INPUT RECORD COUNT 

READ A RECORD 

CHECK FOR END OF FILE 

IF EOF GO TO "DONEl" 

VDP RAM BUFFER ADDRESS 

CPU RAM BUFFER ADDRESS 

RECORD LENGTH 

GET RECORD 

CHECK FOR WHICH FIELD 



FIRST NME ADDR. FOR MOVWRD 

LAST NME ADDR. FOR MOVWRD 
DO MOVWRD - LOAD SORT TABLE 
LOAD REL RECORD # INTO TABLE 
READ ANOTHER RECORD 
LOAD END OF TABLE MARKER 



DISPLAY "SORTING NOW" 



LOAD R5 WITH VALUE OF "D" 
FIRST TABLE ENTRY ADDRESS 
MOVE ADDR. VALUE IN Rl TO R3 
MOVE ADDR. VALUE IN Rl TO R2 
CALC. TABLE ENTRY LENGTH 

CALC. NEXT TABLE ENTRY ADDR. 
CHECK FOR END OF TABLE 
IF END OF TABLE, GO TO DONE 2 
SAVE "A" ADDRESS IN R0 
SAVE "B" ADDRESS IN Rl 
CHECK FOR ASCEND/DESCEND 



CHECK FOR LAST BYTE OF FIELD 

IF =, GET NEXT TABLE ENTRY 

COMPARE A BYTE OF "A" TO "B" 

IF EQUAL r REPEAT 

IF A > B, SWITCH 

IF A < B THEN GET NEXT ENTRY 
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* DESCENDING ORDER * 







c 


R3.R2 


C'il QQ 

Kf X 9 7 




JEO 


GETTAB 


0200 

V ^ Xf V 




CB 


*R3+. *R4+ 


K/ ^ K/ X 




JEO 

wl u ^ 


CLOPD 


Qi20i2 




JGT 


GETTAB 




SWIT 


MOV 


R1.R7 






LI 


R8 . HLDTAB 






MOV 


filTABLEN .R9 






BL 


flMOVWRD 






MOV 


R0 .R7 






MOV 

1 ivy V 


Rl .R8 






BL 


flMOVWRD 


iO^±v 




LT 


R7 HLDTAB 






MOV 
1 ivy V 


R0 . Rfi 


0212 




BL 


(OMOVWRD 

1^7^ * W V WA\JL^ 


K/ X 




JMP 


COM PAR 


0214 


MOVWRD 


MOV 


R9/R6 


0215 




A 


R7,R6 


0216 


MOVEM 


MOV 


*R7+, *R8+ 


0217 




c 


R7/R6 


0218 




JNE 


MOVEM 


021Q 




RT 




0990 


DONE 2 


CLR 


RQ 


0221 




LI 


R0.PABOUT 


Villi 




LI 


Rl . OUTFLE 

A \ ^ # ^/W XX XJXJ 


0223 




LI 


R2. 25 


0224 




BLWP 


OVMBW 


0225 




BL 


flDSROUT 


022fi 




MOVB 


flWRITB.Rl 


0227 




BLWP 


@VSBW 






LI 


R0 - PABIN 


0229 




LI 


Rl, INFILE 


0230 




BLWP 


@VMBW 


0231 




BL 


@DSRIN 


0939 




MOVB 

i ivy V 


/aREADB .Rl 

\2jX\XIc*^W V AA ^ 


0933 




BT WP 


\g V ODm 


0934 




LI 


Rfi . SRTTAB+14 

Av O ^ 1^ AX X X aaImI I ^ *Z 


0235 


GETRR 


MOV 


R8,R4 


0236 




S 


@FLDLEN,R4 


0237 




C 


@TBMARKr*R4 


0238 




JEQ 


EOJ 


0239 




MOV 


R8,R1 


0240 




LI 


R0^PABIN+6 


0241 




LI 


R2,2 


0242 




BLWP 


eVMBW 


0243 




BL 


@DSRIN 



CHECK FOR LAST BYTE OF FIELD 

IF EQUAL, GET NEXT ENTRY 

COMPARE A BYTE OF "A" TO "B" 

IF EQUAL, REPEAT 

IF A > B THEN GET NEXT ENTRY 

LOAD R7 WITH "B" ADDRESS 

LOAD R8 WITH HLDTAB ADDRESS 

LOAD R9 WITH LENGTH OF MOVE 

MOVE "B" TO HOLD AREA 

LOAD "A" ADDRESS 

LOAD "B" ADDRESS 

MOVE "A" TO "B" 

LOAD HOLD ADDRESS 

LOAD "A" ADDRESS 

MOVE HOLD (B) TO "A" 

GO BACK AND CHECK TABLE SEQ 

LOAD MOVE LENGTH 

CALC. MAXIMUM ADDRESS 

MOVE A WORD & INC ADDRESSES 

CHECK FOR MAXIMUM ADDRESS 

IF NOT MAX, MOVE AGAIN 

ELSE, RETURN 

CLEAR REGISTER 9 

ESTABLISH OUTPUT FILE PAB 



OPEN OUTPUT FILE 

PUT WRITE OP-CODE TO PAB+0 

RE-ESTABLISH INPUT FILE PAB 



OPEN INPUT FILE 

PUT READ OP-CODE TO PAB+0 

TABLE ADDR. OF REL RECORD # 
MOVE ADDRESS IN R8 TO R4 
CALC. ADDR. OF FIRST ENTRY 
CHECK FOR END OF TABLE 
IF END OF TABLE, GO TO EOJ 
MOVE REL RECORD # ADDR. TO Rl 
LOAD R0 WITH DEST. ADDR. 
LOAD R2 WITH LENGTH OF DATA 
PUT REL RECORD #. INTO PAB+6 
READ THAT RECORD 
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0244 




INC 


R9 


INCREMENT OUTPUT REC COUNT 


0245 




BL 


@DSROUT 


WRITE OUTPUT RECORD 


0246 




A 


@TABLEN,R8 


CALC. NEXT REL REC. ADDR. 


0247 




MOV 


R9,R4 


MOVE RECORD COUNT TO R4 


0248 




LI 


R3r 304 




0249 




LI 


R0,309 




0250 




BL 


@FIGUR 


DISPLAY OUTPUT RECORD COUNT 


0251 




JMP 


GETRR 


GET NEXT REL RECORD NUMBER 


0252 


EOJ 


LI 


R0,354 


DISPLAY "END OF JOB" 


0253 




LI 


R1,TIT4 




0254 




LI 


R2,28 




0255 




BLWP 


@VMBW 




0256 




LI 


R0,706 




0257 




LI 


R1,TIT5 




0258 




BLWP 


@VMBW 




0259 




LI 


R0,PABIN 




0260 




MOVB 


@CL0SB,R1 


PUT CLOSE OP-CODE TO PAB+0 


0261 




BLWP 


@VSBW 




0262 




LI 


R0,PABOUT 


PUT CLOSE OP-CODE TO PAB+0 


0263 




BLWP 


@VSBW 




0264 




BL 


@DSRIN 


CLOSE INPUT FILE 


0265 




BL 


@DSROUT 


CLOSE OUTPUT FILE 


0266 


EOJX 


CLR 


R10 




0267 




BL 


©CURSOR 


PERFORM "PRESS ANY KEY" 


0268 


EOJQ 


CLR 


@ STATUS 


CLEAR THE GPL STATUS BYTE 


0269 




MOV 


@SAVRTN,R11 


MOVE RETURN ADDRESS TO Rll 


0270 


XT 


RT 




RETURN (B *R11) 


0271 


CURSOR 


CLR 


R9 


CLEAR REGISTER 9 


0272 




CLR 


QKEYVAL 


CLEAR KEYSTROKE VALUE ADDR. 


0273 




CLR 


©STATUS 


CLEAR GPL STATUS BYTE 


0274 




MOV 


R10,R10 


CHECK R10 FOR ZERO VALUE 


0275 




JEQ 


CURLl 


IF ZERO, GO TO CURSOR LOOPl 


0276 




MOV 


R0,R8 


SAVE BEGINNING CURSOR ADDR. 


0277 




A 


R8,R10 


CALC. MAXIMUM CURSOR ADDR. 


0278 




MOV 


R8,R7 


MOVE BEGIN ADDR. TO ACCUM. 


0279 


CURPUT 


CLR 


R6 


CLEAR REGISTER 6 


0280 




MOV 


R7,R0 


MOVE ACCUMULATOR TO R0 


0281 




LI 


Rl,>2000 


LOAD REGISTER 1 WITH SPACE 


0282 




BLWP 


@VSBW 


DISPLAY SPACE 


0283 


CURLl 


BLWP 


@KSCAN 


PERFORM KEYBOARD SCAN 


0284 




MOVB 


©STATUS, ©STATUS CHECK FOR KEYSTROKE 


0285 




JNE 


DETECT 


IF KEY PRESSED, WHICH KEY? 


0286 




AI 


R6,4 


ADD 4 TO REGISTER 6 


0287 




C 


R6, ©BLINK 


COMPARE R6 TO BLINK COUNT 


0288 




JLT 


CURLl 


IF LESS, REPEAT CURLl 


0289 




MOV 


R10,R10 


CHECK R10 FOR ZERO VALUE 


0290 




JEQ 


CURLl 


IF ZERO, GO TO CURLl 


0291 




CLR 


R6 


CLEAR REGISTER 6 
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0292 




MOVE 


@CURVAL,R1 


0293 




BLWP 


@VSBW 


0294 


CURL2 


INC 


R6 


0295 




c 


R6,@BLINK 


0296 




JLT 


CURL2 


0297 




JMP 


CURPUT 


0298 


DETECT 


CB 


@REDOV,@KEYVAL 


0299 




JEQ 


REDOX 


0300 




CB 


@QUITVy@KEYVAL 


0301 




JEQ 


EOJQ 


0302 




MOV 


R10,R10 


0303 




JEQ 


XT 


0304 




CB 


@ENTVr@KEYVAL 


0305 




JEQ 


ENTER 


0306 




CB 


@LEFTV,@KEYVAL 


0307 




JEQ 


LEFT 


0308 




CB 


@RITEV,@KEYVAL 


0309 




JEQ 


RITE 


0310 




c 


R7,R10 


0311 




JEQ 


CURPUT 


0312 




MOV 


R7,R0 
@KEYVAL,R1 


0313 




MOVB 


0314 




MOVB 


@KEYVAL,R9 


0315 




BLWP 


@VSBW 


0316 




INC 


R7 


0317 




JMP 


CURPUT 


0318 


LEFT 


c 


R7,R8 


0319 




JEQ 


CURPUT 


0320 




MOV 


R7rR0 


0321 




LI 


Rl,>2000 


0322 




BLWP 


@VSBW 


0323 




DEC 


R7 


0324 




JMP 


CURPUT 


0325 


RITE 


C 


R7,R10 


0326 




JEQ 


CURPUT 


0327 




INC 


R7 


0328 




JMP 


CURPUT 


0329 


ENTER 


LI 


Rl,>2000 


0330 




MOV 


R7rR0 


0331 




BLWP 


@VSBW 


0332 




s 


R8,R7 


0333 




JEQ 


CURSOR 


0334 




RT 




0335 


REDOX 


B 


@ PROMPT 


0336 


SCREEN 


CLR 


R0 


0337 




LI 


Rl, BORDER 


0338 




LI 


R2,32 


0339 


SCRL 


BLWP 


@VMBW 


0340 




CI 


R0,736 


0341 




JHE 


LEAVE 



MOVE CURSOR CODE TO Rl 
DISPLAY CURSOR 
ADD 1 TO R6 

COMPARE R6 TO BLINK COUNT 
IF LESS, REPEAT CURL2 
REPEAT CURSOR LOOP 
CHECK FOR "REDO" VALUE 
IF REDO, GO TO REDO EXIT 
CHECK FOR "QUIT" VALUE 
IF QUIT, GO TO EOJ/QUIT 
CHECK R10 FOR ZERO VALUE 
IF ZERO, RETURN 
CHECK FOR "ENTER" VALUE 

CHECK FOR "LEFT ARROW" 

CHECK FOR "RIGHT ARROW" 

CHECK FOR MAX. CURSOR ADDR. 
IF EQUAL, GO TO "CURPUT" 
MOVE NEW ADDRESS TO R0 
MOVE KEYSTROKE VALUE TO Rl 
SAVE KEYSTROKE VALUE IN R9 
DISPLAY KEYSTROKE CHARACTER 
ADD 1 TO ADDRESS ACCUMULATOR 
GO TO "CURPUT" 
CHECK FOR MIN CURSOR ADDR. 
IF EQUAL, GO TO "CURPUT" 
MOVE CURRENT ADDRESS TO R0 
LOAD Rl WITH SPACE CHAR. CODE 
WRITE A SPACE AT CURR. ADDR. 
SUBTRACT 1 FROM CURR. ADDR. 
GO TO "CURPUT" 
CHECK FOR MAX CURSOR ADDR. 
IF EQUAL, GO TO "CURPUT" 
ADD 1 TO CURRENT ADDRESS 
GO TO "CURPUT" 

LOAD Rl WITH SPACE CHAR CODE 
MOVE CURRENT ADDRESS TO R0 
SPACE OVER CURSOR SYMBOL 
CALC. ACTUAL LENGTH OF DATA 
IF ZERO, REPEAT CURSOR RTN 
ELSE, RETURN 

BRANCH TO ADDRESS "PROMPT" 
CLEAR REGISTER 
LOAD Rl WITH ADDR. OF BORDER 
LOAD R2 WITH LENGTH OF DATA 
WRITE ONE LINE OF PATTERN 
COMPARE R0 TO MAXIMUM VALUE 
IF = OR >, GO TO "LEAVE" 
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0342 




AI 


R0,32 


0343 




JMP 


SCRL 


0344 


T 7i t TCI 

LEAVE 


LI 


R0, 2 


n A c 

0345 




LI 


Rl, EQLN 


0346 




LI 


R2, 28 


n'i A"^ 

0347 




BLWP 


@VMBW 


0348 




LI 


R0f 738 


0349 




BLWP 


@VMBW 


0350 


RTN 


RT 




0351 


DSRIN 


LI 


R6, PABIN+9 


0352 




JMP 


DSR 


0353 


DSROUT 


LI 


R6r PABOUT+9 


0354 


DbK 


MOV 


R6f @PNTR 


m o c c 

0355 




BLWP 


@DSRLNK 


/Ti "5 e ^ 

0356 




DATA 


8 


Ol O C "7 




JNE 


RTN 


/X IT O 

0358 


ERROR 


kit T 

MOV 


R6rR0 


0359 




AI 


R0,-8 


0360 




BLWP 


@VSBR 


0361 




SRL 


Rl, 5 


0362 




MOV 


Rly @EOF 


0363 




CB 


@QUITV,R1 


0364 




JEQ 


RTN 


0365 




BL 


@SCREEN 


0366 




MOV 


R6,R0 


0367 




INC 


R0 


0368 




LI 


Rl, INBUFF 


0369 




LI 


R2, 20 


0310 




BLWP 


@VMBR 


0371 




LI 


R0, 259 


/a o "7 o 

0372 




BLWP 


gVMBW 


m o "7 o 

0373 




MOV 


@E0F,R1 


0374 




AI 


Rl, >3000 


0O /D 




T T 

LI 


R0, 343 


0376 




BLWP 


@VSBW 


0377 




LI 


R0,322 


0378 




LI 


R1,ERRMSG 


0379 




BLWP 


@VMBW 


0380 




B 


@EOJX 


0381 


FIGUR 


MOV 


R4,R5 


0382 




CLR 


R4 


0383 




DIV 


@DTEN,R4 


0384 




AI 


R5,>30 


0385 




SLA 


R5,8 


0386 




MOV 


R5,R1 


0387 




BLWP 


@VSBW 


0388 




DEC 


R0 


0389 




C 


R0,R3 


0390 




JNE 


FIGUR 


0391 




RT 




0392 




END 





ADD 32 TO R0 
GO TO "SCRL" 

LOAD R0 WITH THE VALUE 2 
LOAD Rl WITH GRAPHICS ADDR 
LOAD R2 WITH LENGTH OF LINE 
DISPLAY AT SCREEN ADDRESS 2 
LOAD R0 WITH THE VALUE 738 
DISPLAY AT SCREEN ADDR 738 
RETURN 

LOAD R6 WITH PAB ADDRESS 

LOAD R6 WITH PAB ADDRESS 
MOVE R6 TO POINTER ADDRESS 
PERFORM DEVICE SERVICE RTN 

IF NO ERRORS, RETURN 
MOVE R6 TO R0 

CALC. ADDRESS OF PAB BYTE 1 
READ PAB BYTE 1 INTO Rl 
SHIFT Rl RIGHT 5 POSITIONS 
MOVE Rl TO THE EOF FLAG 
CHECK FOR EOF (VALUE >05) 
IF EQUAL, RETURN 
ELSE, REDO SCREEN GRAPHICS 
MOVE R6 TO R0 

CALC. ADDRESS OF PAB BYTE 10 
LOAD Rl - TEMP CPU RAM ADDR 
LOAD R2 - LENGTH OF WRITE 
GET FILE NAME IN ERROR 
LOAD R0 - SCREEN ADDR 259 
DISPLAY FILE NAME IN ERROR 
MOVE ERROR CODE TO Rl 
MAKE IT AN ASCII NUMERAL 
SCREEN ADDR FOR ERROR CODE 
DISPLAY ERROR CODE 
SCREEN ADDR FOR ERROR MSG 
ADDRESS OF THE MESSAGE 
DISPLAY ERROR MESSAGE 
GO TO EOJ 
MOVE R4 TO R5 
CLEAR R4 

DIVIDE R4/R5 BY TEN 
MAKE R5 AN ASCII NUMERAL 
SHIFT R5 LEFT 8 PLACES 
MOVE R5 TO Rl 
DISPLAY A DIGIT 
SUBTRACT 1 FROM R0 
COMPARE R0 TO R3 
IF NOT EQUAL REPEAT 
ELSE, RETURN 
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At nearly 400 lines, this TMS9900 assembly program might appear formidable to the beginner. 
However, this program Is not as complex as the number of lines would seem to indicate. In 
addition to performing sort logic, this program represents an example of everything that has 
been covered in this text so far. It includes a number of options and features besides sorting 
which add considerably to its length, in fact, the actual sorting Instructions range from line 
147 through 251, or only about 28 percent of the entire program. The rest of the program is 
comprised of the Instructions, directives, and subroutines which have been previously detailed. 
Lastly, the key to understanding any program that you are looking at for the first time is to 
take it one line at a time. This is true whether the program is 5 or 5000 lines long. Do not be 
Intimidated by a program's length. The only sections of this program to be detailed will be 
those which involve new logic (the sort) and new or enhanced applications of previously 
Introduced instructions and subroutines. 

Lines 1 through 59 use the various TMS9g00 assembler directives to define the constants, 
addresses, data, and work areas this program will require. The data items include a new 
pattern description for the cursor, graphics characters for the screen display, PAB data for the 
input and output files, and the titles, prompts, and messages which will be displayed. Line 59 
sets aside 4096 bytes (hex >1000) for the sort table space. This is an arbitrary value. When 
designing a sort program or any other program's internal workspace size, it is necessary to 
allow for some expected or maximum number of records and, therefore, bytes. 

Lines 60 through 75 save the return address, load the workspace register pointer, set the 
foreground/background colors of the border characters and display characters, and load the 
cursor pattern data to the pattern descriptor table In VDP RAM. All these steps and 
instructions have been used before in previous program examples. The colors used in this 
program are white on blue for the displayable character set with a dark red screen border. 

Line 76 performs a Branch and Link to the subroutine SCREEN. This routine will load the 
border pattern into the screen image table and write a line of " = " symbols across the top and 
bottom of the screen. This function is coded as a subroutine to allow the screen graphics to 
be established or redone at any point in the program without having to code the actual 
instructions more than once. Lines 79 through 90 display the program title and prompts the 
user for the file/device name for the sorted output file. While the fiie/device name of the input 
file is hard-coded into the program, the user is free to specify the output file. Since the sorted 
output file in this program example is a relative file like the input file, it naturally must be on 
disk. The file/device name is read from screen address 195 into the output file PAB byte 10. 
The length of this data is returned in R7 by CURSOR. This length value is moved to output file 
PAB bytes 8,9 to complete the output file PAB data. 

In chapter eight you were introduced to a fundamental keyboard input routine called CURSOR, 
which provided interactive keyboard ability. This routine Is again included in this program. This 
version of CURSOR includes some additional capabilities not found In the original. Besides 
using a unique symbol pattern for the cursor, the new CURSOR routine also makes the cursor 
blink. Two additional exits are allowed as well. If the user presses REDO the new CURSOR 
routine branches to line 76 (PROMPT) to let them re-enter the data which is required. Should 
the user press QUIT, the routine branches to line 268, EOJQ. Branching to this address 
bypasses the closing of the input and output files (which have not been opened yet) and ends 
the program. Lastly, so long as the response length specified In RIO before the BL to CURSOR 
is greater than zero, CURSOR will not allow the user to simply press ENTER without having 
entered some data. 
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Lines 91 through 107 ask the user to specify which field the file Is to be sorted on. The 
prompts defined in lines 34, 35, and 36 allow the user to enter a "1" for first name, or a "2" for 
last name. The actual response Is compared to the ASCII codes for these two numerals to 
verify that a valid choice has been made. If any value Is entered other than those allowed, the 
prompt sequence Is repeated. This has the same effect as pressing REDO at this point. The 
only other option available would be QUIT. Next, lines 108 through 118 ask that the user 
specify the order in which the records are to be sorted. A response of "A" indicates that the 
file is to be sorted In ascending sequence. A reponse of "D" means that the file Is to be sorted 
in descending order. The actual responses are verified to be either "A" or "D". Up to this 
point, the program has required the user to tell it the file/device name of the sorted ouput file, 
which field to sort on, and whether the sort is to be in ascending or descending order. 

Lines 119 through 123 ask that the user verify the Information they have just entered, and 
respond by either pressing REDO or any other key. If the response Is REDO, then CURSOR 
branches to the beginning of the prompt sequence to allow the data to be re-entered. If any 
other key Is pressed the program continues. Lines 124 through 136 get and save the field and 
sequence options, establish the Input file PAB In VDP RAM, open the Input file, and enable the 
input file to be read. 

Lines 137 through 144 get rid of the prompts and responses by repeating the screen graphics 
and display the headings for the record counts which will be taken and displayed during 
processing. A count will be taken of the number of Input records (sort In) and the number of 
output records (sort out). These two counts should always be equal as long as the program Is 
functioning properly and no processing errors occur. 

The first phase of the sort process Involves reading the file to be sorted and building a table 
from the sort field and relative record number for each record. Because many repetitious word 
(16 bit) moves are involved In loading the table and performing the actual sort, a subroutine 
called MOVWRD has been coded just for this purpose. Whenever the same or similar set of 
instructions needs to be executed more than once. It Is preferable to create a subroutine 
comprised of the Instruction set rather than coding the Instructions over and over again. The 
routine MOVWRD uses registers 6, 7, 8 and 9 to move words of memory between various CPU 
RAM locations. Register 7 must contain the origin address, register 8 the destination address, 
register 9 the length of the move In bytes (always an even number for word moves), and 
register 6 is used for calculations. 

Line 144 loads R8 with the destination address (sort table area, SRTTAB). Line 145 places the 
length of the data Into R9. Lines 162 through 167 put the origin address Into R7 depending on 
which field has been selected to be sorted on. The length of the sort field Is set to 14 (>E) for 
either field. This is the maximum length of the first name field as defined in the Tl BASIC 
program which created it. The actual length of the last name field Is variable. The length of the 
sort field determines the number of bytes which must be compared to detect those records 
which are out of sequence. The larger this number, the more time the sort will take. One 
shortcut which can be taken in setting up sort logic is to only sort on a given number of bytes 
regardless of the length of the sort field. Since It Is unlikely that any record will contain a last 
name greater than 14 bytes, and even more unlikely that two last names would contain the 
same characters until the fifteenth position, this approach is reasonable, accurate, and time 
saving. The length value could be less or greater, but too much of a deviance could be 
inaccurate or time consuming. The actual number of bytes you choose to compare Is a matter 
of judgement, but It Is possible to cheat a little. 
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To demonstrate how the sort logic in this program operates, it is necessary to mal<e a few 
assumptions about which options have been selected, and provide some data for the program 
to process. For the rest of this expianantion, assume that the user wants to sort the input file 
on the last name field, and wants the file sorted in ascending order. Here is an input file of 10 
records. 



Relative 


First 


Last 


Record # 


Name 


Name 


0000 


JIM 


SMITH 


0001 


BOB 


JONES 


0002 


MARY 


QUEENS 


0003 


MARVIN 


STONE 


0004 


LINDA 


BLACKSMITH 


0005 


GEORGE 


WASHINGTON 


0006 


THOMAS 


JEFFERSON 


0007 


WILLIAM 


MCKINLEY 


0008 


HOWARD 


TAFT 


0009 


HOWARD 


JOHNSON 



As you can see, the records are not in any particular order. Lines 147 through 170 read the file 
and build the sort table. Each table entry is composed of the first 14 bytes of the last name 
field plus 2 bytes for the relative record number of each record for a total length of 16 bytes 
for each table entry. When the end of the file is reached, line 171 moves a word containing 
>FFFF to the next table address in order to mari^ the end of the table. The subroutine 
MOVWRD, which is used to create the table, illustrates the use of an addressing mode known 
as Worl^space Register Indirect Auto-Increment. The line: 0216 MOVEM *R7 + ,*R8+ specifies 
that the values in each register are to be used as addresses and that after each move the 
values in the registers will be automatically incremented. This handy addressing feature 
Increments the registers involved by 1 for byte instructions and by 2 for word instructions. 
After the file has been read and the sort table is created, the sort table would appear as below. 
Note that the actual values in the sort table are ASCII codes for the letters and binary 
expressions for the relative record numbers. The example here is shown in display format. 
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ADDRESS TABLE CONTENTS 



bKi LAd+)0 


1 O M T TtTT 

1 bNl in 


n fx t 


5RTTAd+1d 


1 JUNCib 


01 1 




1 I C P M G 

1 yUrib^Jb 


n o i 
[OZ 1 


bKi iAo+4o 


1 b i UNt» 


J 1 






(Ad 


SRTTAB+80 


1 WASHINGTON 


051 


SRTTAB+96 


1 JEFFERSON 


061 


SRTTAB+112 


1 MCKINLEY 


071 


SRTTAB+128 


ITAFT 


081 


SRTTAB+144 


1 JOHNSON 


091 


SRTTAB+160 


1 >FFFF 





The second phase of this sort process is to arrange the tabie entries into the desired order. To 
do this, the program starts with the first tabie entry and compares each byte of the sort l<ey 
data to that of the next tabie entry, if the sort i<ey data of the two tabie positions being 
compared is aiready in the correct sequence, or if the two are equai, then no action is required 
and the comparison moves on to the next pair of tabie entries. To mal<e it easier to i^eep the 
relationship of the entries being compared straight, the first tabie entry will be referred to as 
"A" and the next tabie entry as "B". For the ascending sequence exampie, whenever A is 
found to be greater than B, their positions are switched in the table. 

Lines 180 through 185 calculate the table addresses of the pair of tabie entries to be 
compared. The "A" address is saved in RO, and the "B" address is saved in R1. Lines 186,187 
test for the end of the tabie marker. If the end of the table has been reached then this phase 
of the sort is done, and line 187 directs the program to address "D0NE2". The first time 
through this logic, R3 is loaded with address SRTTAB, and R4 is loaded with address 
SRTTAB + 16. R2 will contain the address value of the last byte of the sort key portion of the 
tabie entry. If R2 is equai to R3 at line 192, then all the bytes of the sort key have been 
compared and It Is time to move on to the next pair of table entries. Lines 190 and 191 check 
the order option again by comparing the option to >44 (ASCII for "D"). If descending order 
was selected, then the compare loop CLOPD is performed. Otherwise, the default is ascending 
order, which performs compare loop CLOP. Here is a diagram of the first comparison. 
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0194 
0195 
0196 

ADDRESS IN 
REGISTER 3 



CB *R3+r*R4+ 
JEQ CLOP 
JGT SWIT 

VALUE AT 
ADDRESS 



ADDRESS IN 
REGISTER 4 



VALUE AT 
ADDRESS 



SRTTAB+0 



>53 or "S" 



SRTTAB+16 



>4A or "J" 



The Compare Bytes instruction is used because the comparison must be done on a character 
by character basis, and one character tal^es one byte. The vaiue at the address in R3 ("8") is 
greater than the value at the address in R4 ("J"). This comparison results in the greater-than 
bit being set in the status register. This condition is checked and the resulting action is 
directed by line 196. It will be necessary to exchange the positions of the two table entries. 
Using the A and B naming convention, the table entry for SMITH is "A", and JONES is "B". 
There are three steps to the switch process: 

Moy/e "B" to a hold area - HLDTAB. 



•A" I SMITH 



001 



'B" I JONES 



01 



•>"HLDTAB" I JONES 



01 



Move "A" to "B" 



"A" I SMITH 

I 



00 



I 

V 



"B" I SMITH 
I 



00 



"HLDTAB" I JONES 

I 



01 
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MoveTABHLD ("B") to "A" 



I 1 I I 

"A" I JONES 01 1< "HLDTAB" | JONES 01 1 



i I 

"B" I SMITH 001 

I I 



These are the Instructions which perform the switch logic. 



0203 


SWIT 


MOV 


R1/R7 


LOAD R7 WITH "B" ADDRESS 


0204 




LI 


R8,HLDTAB 


LOAD R8 WITH HLDTAB ADDRESS 


0205 




MOV 


@TABLEN,R9 


LOAD R9 WITH LENGTH OF MOVE 


0206 




BL 


@MOVWRD 


MOVE "B" TO HOLD AREA 


0207 




MOV 


R0,R7 


LOAD "A" ADDRESS 


0208 




MOV 


R1,R8 


LOAD "B" ADDRESS 


0209 




BL 


@MOVWRD 


MOVE "A" TO "B" 


0210 




LI 


R7,HLDTAB 


LOAD HOLD ADDRESS 


0211 




MOV 


R0,R8 


LOAD "A" ADDRESS 


0212 




BL 


@MOVWRD 


MOVE HOLD (B) TO "A" 


0213 




JMP 


COMPAR 


CHECK TABLE SEQUENCE AGAIN 


0214 


MOVWRD 


MOV 


R9,R6 


LOAD MOVE LENGTH 


0215 




A 


R7,R6 


CALC. MAXIMUM ADDRESS 


0216 


MOVEM 


MOV 


*R7+,*R8+ 


MOVE WORD, INCREMENT ADDRESS 


0217 




C 


R7,R6 


CHECK FOR MAXIMUM ADDRESS 


0218 




JNE 


MOVEM 


IF NOT MAX, MOVE AGAIN 


0219 




RT 




ELSE, RETURN 



Line 213 returns to the label COMPAR after the switch has been done. Each time a pair of 
table entries are found to be out of order and are switched, the comparison logic starts all 
over again at the beginning of the table. This Is done over and over again until all the table 
entries are in the correct order. If all the entries are in correct order there is never a condition 
which causes the switch logic to execute and the end of the table is reached. The type of sort 
algorithm being applied to the sort table Is known as a "Bubble" sort. Each Item in the table Is 
moved up to the position where it belongs. You may come across many different programs 
which are all called bubble sorts. Their specifics will vary, but the general approach is the 
same. When this second phase of the sort program is completed, the sort table now lool<s like 
this. 
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SRTTAB+0 


i BLACKSMITH 


04 1 


SRTTAB+16 


1 JEFFERSON 


06 1 


SRTTAB+32 


I JOHNSON 


09 1 


SRTTAB+48 


1 JONES 


01| 


SRTTAB+64 


1 MCKINLEY 


07 1 


SRTTAB+80 


1 QUEENS 


02| 


SRTTAB+96 


1 SMITH 


001 


SRTTAB+112 


1 STONE 


031 


SRTTAB+128 


1 TAFT 


081 


SRTTAB+144 


1 WASHINGTON 


051 


SRTTAB+160 


1 >FFFF 





The 3rd phase involves reading the table sequentially, and using the relative record numbers to 
randomly retrieve records from the input file and write them out to the output file. 

Lines 220 through 233 prepare for phase III by establishing the input and output file PABs, 
opening the input and output files, and setting the input file op-code to Read and the output 
file op-code to Write. In phase I the input file was read until end of file and was closed by the 
DSR routine. Now it is to be read again, so the PAB data is re-established and the file opened. 

Line 234 loads the beginning table address for the first relative record number entry Into R8. 
Lines 235 through 238 checl< for the end of table mariner each time through the loop GETRR. 
Lines 239 through 243 get the relative record number from the table, place It into PAB bytes 
6,7 of the input file, and read that record from the file. The PAB data for the input file names 
the VDP RAM area RECBUF as the buffer space into which each read operation places a 
record from the input file. The PAB data for the output file uses the same buffer area as the 
place where each write operation expects to find the record to be written. No other 
manipulation of the record data is required. Here is a diagram of the first GETRR loop. 

Get (read) the record number found at the address In R8 from the input file into RECBUF. 
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REGISTER 8 
SRTTAB+14 



I 

RECBUF I LINDA 

I 



SRTTAB 

+14 I 04 

+30 I 06 

+46 I 09 
I 



INPUT FILE 



BLACKSMITH 



00 


JIM 


SMITH 


01 


BOB 


JONES 


02 


MARY 


QUEENS 


03 


MARVIN 


STONE 


04 


LINDA 


BLACKSMITH 


05 


GEORGE 


WASHINGTON 



Write an output file record from RECBUF. 



RECBUF I LINDA BLACKSMITH | 
I I 



OUTPUT FILE 



I I 

•> 100 LINDA BLACKSMITH | 

I I 



Add the value at TABLEN (16, hex >10) to R8 and repeat the loop. 
REGISTER 8 now contains SRTTAB + 30. 



This process continues until the end of table marker is detected, at which time the program 
logic transfers to EOJ. The End of Job message is then displayed and the files closed. The 
message "Press Any Key To Continue" and a BL to CURSOR allows for a pause before 
actually ending the program. With the REDO capability of this version of CURSOR, the user 
may elect to repeat the entire sort program at this point or press any other l<ey to end 
processing. 



At the end of the program, the input file exists In its original state, and the new, sorted output 
file has been created. 
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INPUT FILE 



OUTPUT FILE 



Relative First 
Record # Name 



Last 
Name 



Relative First 
Record # Name 



Last 
Name 



0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 



MARVIN 

LINDA 

GEORGE 

THOMAS 

WILLIAM 

HOWARD 

HOWARD 



JIM 
BOB 
MARY 



SMITH 
JONES 
QUEENS 
STONE 

BLACKSMITH 

WASHINGTON 

JEFFERSON 

MCKINLEY 

TAFT 

JOHNSON 



0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 



WILLIAM 
MARY 



MARVIN 
HOWARD 
GEORGE 



LINDA 
THOMAS 
HOWARD 
BOB 



JIM 



BLACKSMITH 

JEFFERSON 

JOHNSON 

JONES 

MCKINLEY 

QUEENS 

SMITH 

STONE 

TAFT 

WASHINGTON 



The way in which the input/output requirements of the two files are addressed demonstrates a 
way in which Device Service Routines can be applied. In the section on file handling, it was 
stated that ail DSR requests are handled the same for any device except cassettes and the the 
only differences were the particular file data (PAB) pointed to, and the operation (op-code) 
requested. In the above DSR routine, the only difference between the input and output file 
access are the lines 351,352,353, which set the pointer for the PAB (file description) used. The 
individual op-codes for read, write, and close were changed within the body of the program. 
The remaining instructions woric for either file. Should an error be detected, the pointer 
address in R6 can be used to calculate the address of PAB byte 1 (the error code), and PAB 
byte 10 (the file description "DSK1.FILE1") If the output file was to have been written to a 
cassette device, this approach would not worl<. The cassette DSR must be accessed by a 
different set of instructions as outlined in the chapter on file handling. 

The cursor subroutine as coded in this program example is an improved version of the one 
first introduced. This version operates much the same as the original. The most notable 
difference is the blinking cursor. Lines 279 through 288 write a space (hex >20) to the screen 
and count to 2,976 (hex >OBAO) by fours. Once the loop CURL1 has reached this value, lines 
289 through 297 then display the cursor symbol. The loop CURL2 counts to 2,976 by ones. 
Some indication of the speed of TMS9900 assembly language is evidenced by the fact that all 
of this counting occurs in the space of a blink. Counting by fours while the space is displayed 
and then counting by ones while the cursor is displayed, means that 80 percent of the time the 
cursor is seen and 20 percent of the time the space is seen. You can alter the rate of blink by 
changing the value at BLINK, or by changing the Incremental value for either CURL1 or CURL2. 
The keyboard scan utility is performed within the first loop so that the response to the 
pressing of a key Is not too sluggish. 

Lines 298 through 301 check for the QUIT and REDO values and direct program logic 
accordingly. When the actual length of the data entered is calculated at line 332, the equal bit 
will be set in the status register if the answer in R7 is zero. If an allowable value of zero was 
placed into RIO before the CURSOR subroutine logic was performed, then lines 329 through 
334 are never reached. Therefore, if CURSOR reaches the label ENTER, a value greater than 
zero must have been specified. Line 333 checks for the value in R7, and If it is zero, the entire 
CURSOR subroutine is repeated. 
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CHAPTER ELEVEN 

MIXING ASSEMBLY WITH BASIC 

it Is possible to create subprograms In assembly language that can be called from your Tl 
BASIC or Tl Extended BASIC programs. This can result in "a hybrid variety of programs that 
offer the best of both worlds. Program tasks that can be accomplished with adequate 
efficiency in BASIC can be coded and debugged easily in that language. Tasks that require 
Improved speed and performance, or tasks that simply are impossible to perform in BASIC, 
can be coded in assembly. The Editor/Assembler module and the Mini-Memory module both 
provide additional statements for use with Tl BASIC. These statements facilitate linking 
assembly routines with BASIC programs. Likewise, Tl Extended BASIC offers statements to 
facilitate this function that are not normally available in Tl BASIC. When you are running an 
assembly program with Editor/Assembler or Mini-Memory, the computer's memory is not 
arranged exactly the same as when you are operating In Tl BASIC or Tl Extended BASIC. In 
order for your assembly language subprograms to function correctly in the BASIC environment, 
there are specific differences that you must be aware of. 

First, you must determine which BASIC environment your program will be operating In. Of 
primary consideration to the assembly language programmer are the differences found in VDP 
RAM. The BASIC program and all its data, routines, and workspaces occupy a good portion of 
this area. Your assembly language program must not change the values of any addresses 
being used by BASIC. Certain VDP RAM value tables, such as the color table, are located at 
different addresses in BASIC than they are in stand-alone assembly programs. 

Further, your assembly program must allow for screen bias and offset while running with 
BASIC. The value of this offset is always >60 or decimal 96. Any character your assembly 
language program wishes to display must have its character code value incremented by >60. 
Normally, to display an "A" on the screen, the character code >41 is used. In the BASIC 
environment, however, this value must be adjusted: 



LI R0,293 

LI Rl,>4100 

AI Rl,>6000 

BLWP @VSBW 



LOAD R0 WITH VDP 
LOAD Rl WITH "A" 
ADJUST FOR BASIC 
DISPLAY THE "A" 



RAM SCREEN ADDRESS 
CODE 



For string constants such as those created with the TEXT directive, every byte of the string 
must be adjusted by adding >60 before it is written to the screen image table address. 
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VDP RAM 

ASSEMBLER MODE 
ADDRESS 



HEX 


DECIMAL 




>0000 
>02FF 




767 


SCREEN 

IMAGE 

TABLE 


>0300 


768 


SPRITE 
ATTRIBUTE 


>037F 


895 




>0380 


896 


COLOR 

TABLE 

AMD 

FREE 

SPACE 


>03FF 


1023 




>0400 


1024 


SPRITE 

DESCRIPTOR 

TABLE 


>07FF 


1919 




>0800 
>0FFF 


1920 
4095 


PATTERN 
DESCRIPTOR 
TABLE AND 
FREE SPACE 


>1000 
>137F 


4096 
4991 


FREE SPACE 

PAB's 

AND 

BUFFERS 


>1380 
>34FF 


4992 
13567 


PROGRAM 
FILE LOAD 
BUFFER 



BASIC MODE 
ADDRESS 
HEX DECIMAL 



>0000 





SCREEN 






IMAGE 


X. iTI O TT% TT% 

>02FF 


767 


TABLE 


\. fx fx fx 

>0300 


ICO 

768 


oPRI TE 






AND COLOR 






TABLE 


>0 JIF 


•7 ft 

799 




>320 


800 


BASIC 






BUFFER 


>3BD 


957 




>3BE 


958 


BASIC 






TEMPORARY 






AND 






INTERPRETER 


>03FF 


1023 


ROLLOUT 


>0400 


1024 


PATTERN 






DESCRIPTOR 


>05FF 


1535 


TABLE 


>0600 


1536 


VALUE STACK 



STRING SPACE 



DYNAMIC 
SYMBOL TABLE 
AND PAB's 

STATIC 

SYMBOL TABLE 

LINE NUMBER 
TABLE 

BASIC 
PROGRAM 



>3500 13568 DISK 

DSR's 

>3FFF 16383 



>3FFF 16383 
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Here Is the sample program from Chapter Eight. This version Incorporates the changes 
necessary for this assembly language program to be called by a BASIC program: 



DEF GO 

REF VWTR, VSBW, VMBW, KSCAN 
WR BSS >20 

STATUS EQU >837C 
KEYVAL EQU >8375 
DTEN DATA >A 



*********************************************** 



* ALL SPACE CHARACTER CODES (>20) HAVE BEEN INCREMENTED 

* BY >60 



BORDER DATA >FFFF, >8080, >8080, >8080 
DATA >8080,>8080,>8080r>8080 
DATA >8080,>8080r>8080,>8080 
DATA >8080,>8080,>8080,>FFFF 



***************************************************************** 



MSGl TEXT •** PRESS ANY KEY **' 
SG2 TEXT ■* KEYSTROKE VALUE IS *• 
MSG3 TEXT •* PRESS REDO/ESCAPE *' 



***************************************************************** 



* SCREEN BIAS OR OFFSET CONSTANT FOR BASIC 



OFFST BYTE >60 

***************************************************************** 

REDOV BYTE >06 
ESCV BYTE >0F 

EVEN FORCE AN EVEN WORD BOUNDARY IN THE 

LOCATION COUNTER 

SAVll BSS 2 

GO MOV R 11, @ SAVll 

LWPI WR 

LI R0,>0755 

BLWP @VWTR 
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********************************************* 

* THE ADDRESSES USED BY THESE INSTRUCTIONS TO ACCESS THE COLOR 

* TABf.E IN VDP RAM HAVE BEEN ADJUSTED FOR BASIC 



BPUT 



EXIT 



LI 


R0,799 




LI 


Rl,>5500 




BLWP 


evsBw 




LI 


R0,780 




LI 


R1,>1F00 




BLWP 


@VSBW 




CI 


R0,798 




JEQ 


BPUT 




INC 


R0 




JMP 


CLOOP 




:********************************* 


LI 


R0,0 




LI 


Rl, BORDER 




LI 


R2,32 




BLWP 


QVMBW 




CI 


R0,736 




JEQ 


EXIT 




AI 


R0r32 




JMP 


BLOOP 




LI 


R0,261 


VDP RAM ADDRESS 


LI 


R2,MSG1 


CPU RAM ADDRESS 


LI 


R3f 22 


MESSAGE LENGTH 


BL 


QPBASIC 


PRINT MESSAGE 


CLR 


@STATUS 




BLWP 


@KSCAN 




MOVB 


@STATUS,@STATUS 


JEQ 


SCANl 




LI 


R0r325 


VDP RAM ADDRESS 


LI 


R2,MSG2 


CPU RAM ADDRESS 


LI 


R3,22 


MESSAGE LENGTH 


BL 


QPBASIC 


PRINT MESSAGE 


LI 


R0,395 




MOVB 


@KEyVAL,Rl 





***************************************************************** 



* THE KEYSTROKE VALUE MUST BE ADJUSTED BY >60 BEFORE IT IS 

* DISPLAYED 

AB @0FFST,R1 

*************************************** ********** ************** 
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RT WP 

D i-ifV XT 


<av<^RW 

\2f V 00(« 


CT R 
Lit\ 


R^ 


MnvR 

i'lU V D 






R 4 « 


T T 
laX 




T T 




RL 

O i-J 




LT 


R0.485 VDP RAM ADDRESS 


T T 


RP.MSG"? CPU RAM ADDRESS 


LT 

Ju X 


R'^.2? MESSAGE LENGTH 


BL 


flPBASIC PRINT MESSAGE 


qp AM o PT R 




BT.WP 


flKSCAN 

£\ 1^ Vi«m>l 








c?rAN9 


CR 


^ f\u X V f tt; Uk^ V 




pqPAP 


CB 


@KEYVAL,@REDOV 


ULnEi 




B 


@BPUT 


FIGUR MOV 


R4,R5 


CLR 


R4 


DIV 


@DTEN,R4 


AI 


R5,>0030 


SLA 


R5,8 


MOV 


R5,R1 


ititlcicieiciciciciticicicicicicic'kie-kicie'kic'k'icitlcicie'k'klciciclc'k'k'k'k 


* THE ASCII 


NUMERIC MUST BE ADJUSTED BY 


* DISPLAYED 




AB 


@0FFST,R1 



******************************************************* 



BLWP 


evsBw 


DEC 


R0 


C 


R0,R3 


JHE 


FIGUR 


RT 




ESCAP CLR 


©STATUS 


MOV 


@SAV11,R11 


RT 
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ic1cicic*ie*ic1c**is1tis *************** 1tit1t1tit*ic*ieit if *********** 

* "PBASIC" ROUTINE ADDS THE BASIC OFFSET TO EACH BYTE * 

* OF THE DISPLAY DATA AND WRITES ONE BYTE AT * 

* A TIME TO THE SCREEN * 

***************************************************************** 

PBASIC MOVB *R2+,R1 MOVE ONE BYTE OF MESSAGE TO Rl 

AB @0FFST,R1 ADJUST FOR BASIC 

BLWP @VSBW WRITE ONE BYTE 

DEC R3 DECREMENT CHARACTER COUNT 

JNE PBASIC IF NOT ZERO, DO IT AGAIN 

RT ELSE RETURN 

***************************************************************** 



END 



Now, to call this routine from a Tl BASIC program, you could write a program In this format: 



10 REM **************************** 
20 REM * BASIC PROGRAM TO CALL * 
30 REM * THE CHAPTER EIGHT * 
40 REM * ASSEMBLY PROGRAM * 
50 REM **************************** 
60 CALL INIT 

70 CALL LOAD ("DSKl. OBJECT") 

80 CALL LINK ("GO") 

90 CALL SCREEN (4) 

100 FOR LOOP=780 TO 799 

110 CALL P0KEV(L00Prl9) 

120 NEXT LOOP 

130 GOTO 80 



For Mini-Memory users who have already assembled the program, stored It in the module and 
added the program's name and entry point to the REF/DEF table, the LOAD instruction at line 
70 is not necessary. CALL INIT initializes memory, clears previously loaded programs and data 
and checks to see If memory expansion Is attached and, if so, initializes the values needed to 
link memory expansion to console memory for assembly language use. CALL INIT must appear 
in your program before the first CALL LOAD. 



CALL LOAD loads the object code from the device/file name specified. It can also be used to 
place (or "poke") values into CPU RAM with the format CALL L0AD(ADDRESS,VALUE1, 
VALUE2, VALUES,...). CALL LINK branches to the entry point address In the assembly language 
program. Control Is passed at this point to the subprogram. Execution of the remaining BASIC 
statements does not continue until the assembly program completes its task and returns. 
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The assembly program in this example resets the screen and character colors to white on 
blue. Upon returning from the subprogram, the BASIC program resets the screen and character 
colors back to black on green. 

In addition to using CALL LOAD to place values Into CPU RAM, other handy Instructions are 
available in Ti BASIC with Editor/Assembler and Mini-Memory. CALL PEEK(ADDRESS, 
VARiABLE1,VARIABLE2,...) allows you to retrieve one or more values from an address in CPU 
RAM. Similarly, CALL PEEKV(ADDRESS,VARIABLE1, VARiABLE2,...) retrieves a value from VDP 
RAM. CALL P0KEV(ADDRESS,VALUE1, VALUE2,...) places one or more values into an address 
in VDP RAM. 



The format for each of these statements Is the same. Values are stated In decimal format. 
Addresses larger than 32767 are expressed in negative two's complement notation. Each 
variable or value denotes one byte of data. When more than one value or variable is used, the 
first is assigned to the byte at the address specified and each successive value or variable is 
assigned to the next byte at the next address. 

The POKEV statement resets the foreground and background color values in the color table to 
black on green in the BASIC program example above. Each byte in the color table is set to 
>13 or decimal 19. With your knowledge of tables and addresses, using POKEs and PEEKs in 
your BASIC program can perform certain tasks faster than normal BASIC statements and also 
do things that are not normally possible with BASIC. Remember the screen offset or bias of 96 
affects these statements as well. For example, CALL POKEV(2,161) displays an "A" at row one 
column three. Although the normal ASCII code of "A" is 65, adding the offset (65 + 96) makes 
this value 161. 

CPU RAM bytes >837D, >837E and >837F are part of the area known as the CPU RAM PAD. 
These addresses make up the VDP character buffer. By placing a character code value at 
>837D, the character will be displayed on the screen at the row and column specified at 
>837E and >837F respectively. Since address >837D (decimal 33661) Is greater than 32767, 
the address must be given in two's complement notation. Also, these addresses are in CPU 
RAM and can be accessed with CALL LOAD. In this way, some VDP access can be obtained 
without using POKEV, which is not available in Extended BASIC. CALL L0AD(-31 875,1 61, 1,3) 
displays "A" at row 1 column 3, just as the POKEV example did. The first value (161) is placed 
at address >837D (-31875), the second value (1) Is placed at address >837E (-31874), and the 
third value (3) Is placed at address >837F (-31873). 
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THE EXTENDED BASIC ENVIRONMENT 

There are differences In how assembly subprograms may be used with Tl Extended BASIC 
compared to Tl BASIC. Particularly, the usage of VDP RAM varies from both the BASIC and 
Assembler mode. Also, CPU RAM, the area occupied by the memory expansion unit, can be 
used by Extended BASIC. Addresses >2000 to >3FFF and >A000 to >FFEO are used by the 
Extended BASIC loader. Assembly language programs may only be up to 8K bytes In length 
with Extended BASIC. 



VDP RAM UTILIZATION 
EXTENDED BASIC MODE 

ADDRESS 



HEX 


DECIMAL 




>0000 





SCREEN 






IMAGE 


>02FF 


767 


TABLE 


>0300 


768 


SPRITE 






ATTRIBUTE 


>03FF 


1023 


LIST 


>0400 


1024 


PATTERN 






DESCRIPTOR 






AND SPRITE 






DESCRIPTOR 


>077F 


1919 


TABLE 


>0780 


1920 


SPRITE 






MOTION 


>07FF 


2047 


TABLE 


>0800 


2048 


COLOR 


>081F 


2079 


TABLE 


>0820 


2080 


EXTENDED 






BASIC 






PROGRAM 






INTERPRETER, 






WORK AREAS, 






DATA TABLES, 


>3FFF 


16383 


ETC. 
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The Extended BASIC loader does not recognize external references (REFs). For access to 
utilities such as VSBW, the addresses of the utilities must be EQUated to their names. These 
utilities are located at different addresses than they are In BASIC or assembler modes. Not all 
utilities are supported. For example, DSRLNK Is not supported under Extended BASIC. When 
your assembly language program Is run from Extended BASIC, or when It Is run automatically 
by Including the entry point label with the END directive, It starts out In the GPL workspace. 
The GPL worl<space begins at >83E0. You must not use this area as your own workspace. 
Rather, you should establish your own workspace by defining a workspace and using the LWPi 
Instruction at the start of your program. This has been done In every program example so far 
and generally makes for good practice. In order for your program to properly return to the 
program which called It, you should set the workspace pointer register so that It points to the 
GPL workspace before returning. The following Instructions illustrate how this Is done. 



GPLWS EQU >83E0 
SAVll ESS 2 
MYWS ESS >20 



BEGINNING ADDRESS OF THE GPL WORKSPACE 

SAVE AREA FOR RETURN ADDRESS 

SET ASIDE 32 BYTES FOR MY WORKSPACE 



START MOV R11,@SAV11 
LWPI MYWS 



SAVE RETURN ADDRESS 
ESTABLISH MY OWN WORKSPACE 



END LWPI GPLWS 

MOV @SAV11,R11 

CLR STATUS 
RT 



RE-ESTABLISH THE GPL WORKSPACE 
RESTORE RETURN ADDRESS 
CLEAR THE GPL STATUS BYTE 
RETURN 



Another way of ending the program works In any environment, no matter If your assembly 
program Is called from BASIC or Extended BASIC. For this method, the contents of R11 do not 
need to be saved. The following Instructions Illustrate this technique. 



GPLWS EQU >83E0 



END 



LWPI GPLWS 
CLR @ STATUS 
B @>0070 
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Once again, here is tlie sample program from Chapter Eight. This time, it has been written with 
the changes necessary to caii it from Extended BASiC. 



DEF GO 

* THE EXTENDED BASIC LOADER DOES NOT RECOGNIZE EXTERNAL * 

* REFERENCES. THE UTILITIES VWTR, VSBW^ VMBW^ AND KSCAN * 

* MUST BE ACCESSED BY INCLUDING EQUATES FOR THEM. * 

* THE ADDRESSES OF THE UTILITIES ARE DIFFERENT UNDER * 

* EXTENDED BASIC * 
*ic**ic1c*1t*1cie1cit1t ************************ ********** 

VWTR EQU >2030 
VSBW EQU >2020 
VMBW EQU >2024 
KSCAN EQU >201C 

********************************************************* 

* "GPLWS" address of the GPL worlcspace * 
********************************************************* 



GPLWS 


EQU 


>88E0 


WR 


BSS 


>20 


STATUS 


EQU 


>837C 


KEYVAL 


EQU 


>8375 


DTEN 


DATA 


>A 


BORDER 


DATA 


>FFFF,>8080,>8080,>8080 




DATA 


>8080,>8080,>8080,>8080 




DATA 


>8080,>8080,>8080,>8080 




DATA 


>8080,>8080,>8080r>FFFF 


MSGl 


TEXT 


'** PRESS ANY KEY **• 


MSG2 


TEXT 


•* KEYSTROKE VALUE IS *• 


MSG 3 


TEXT 


•* PRESS REDO/ESCAPE *• 


OFFST 


BYTE 


>60 


REDOV 


BYTE 


>06 


ESCV 


BYTE 


>0F 




EVEN 




GO 


LWPI 


WR 




LI 


R0/0755 




BLWP 


@VWTR 
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1tic1cic1t*isic*icicic*ieieicieic1e*icic******1c*1t1c1t1t *********** ie*****^ 

* THE ADDRESSES USED BY THESE INSTRUCTIONS TO ACCESS * 

* THE COLOR TABLE HAVE BEEN CHANGED * 
********************************************************* 



CLOOP 



BPUT 



BLOOP 



EXIT 



LI 


R0,>081P 




LI 


Rlr >5500 




BLWP 


@VSBW 




LI 


R0,>0800 




LI 


R1,>1F00 




BLWP 


@VSBW 




CI 


R0,>081E 




JEQ 


BPUT 




INC 


R0 




JMP 


CLOOP 




LI 


R0,0 




LI 


Rl, BORDER 




LI 


R2,32 




BLWP 


@VMBW 




CI 


R0,736 




JEQ 


EXIT 




AI 


R0r32 




JMP 


BLOOP 




LI 


R0,261 


VDP RAM ADDRESS 


LI 


R2,MSG1 


CPU RAM ADDRESS 


LI 


R3r22 


MESSAGE LENGTH 


BL 


@PBASIC 


PRINT MESSAGE 


CLR 


eSTATUS 




BLWP 


@KSCAN 




MOVB 


@STATUSy@STATUS 


JEQ 


SCANl 




LI 


R0,325 


VDP RAM ADDRESS 


LI 


R2,MSG2 


CPU RAM ADDRESS 


LI 


R3,22 


MESSAGE LENGTH 


BL 


@PBASIC 


PRINT MESSAGE 


LI 


R0,395 




MOVB 


OKEYVAL^Rl 




AB 


@0FFST,R1 




BLWP 


evsBw 




CLR 


R4 




MOVB 


@KEYVAL,R4 




SRL 


R4,8 




LI 


R3,404 




LI 


R0,406 




BL 


@FIGUR 




LI 


R0,485 


VDP RAM ADDRESS 


LI 


R2,MSG3 


CPU RAM ADDRESS 


LI 


R3,22 


MESSAGE LENGTH 


BL 


@PBASIC 


PRINT MESSAGE 



FOR FIRST MESSAGE 
OF THE MESSAGE 



FOR SECOND MESSAGE 
OF THE MESSAGE 



FOR THIRD MESSAGE 
OF THE MESSAGE 
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SCAN2 CLR @STATUS 

BLWP @KSCAN 

MOVE @ STATUS ^@ STATUS 

JEQ SCAN2 

CB @KEYVAL,@REDOV 

JNE SCAN2 

B @BPUT 

FIGUR MOV R4rR5 

CLR R4 

DIV @DTEN,R4 

AI R5,>0030 

SLA R5,8 

MOV R5rRl 

AB @0FFST,R1 

BLWP @VSBW 

DEC R0 

C R0,R3 

JHE FIGUR 

RT 



************************************************* 

* * 

* "ESCAP" RESETS THE WORKSPACE POINTER REGISTER TO * 

* THE GPL WORKSPACE, CLEARS THE STATUS BYTE, * 

* AND BRANCHES TO ADDRESS >0070 * 

* * 
******************************************************* 



ESCAP LWPI GPLWS 

CLR @ STATUS 
B @>0070 

PBASIC MOVB *R2+,R1 

AB @0FFST,R1 

BLWP @VSBW 

DEC R8 

JNE PBASIC 

RT 

END 



MOVE ONE BYTE OF MESSAGE TO Rl 

ADJUST FOR BASIC 

WRITE ONE BYTE 

DECREMENT CHARACTER COUNT 

IF NOT ZERO DO IT AGAIN 

ELSE RETURN 
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10 REM ***************************** 
20 REM * EXT BASIC PROGRAM TO CALL * 
30 REM * THE CHAPTER EIGHT * 
40 REM * ASSEMBLY PROGRAM * 
50 REM ***************************** 
60 CALL INIT 

70 CALL LOAD ("DSKl. OBJECT") 

80 CALL LINK ("GO") 

90 CALL SCREEN (4) 

100 FOR LOOP=0 TO 16 

110 CALL COLOR (LOOP, 2,4) 

120 NEXT LOOP 

130 GOTO 80 



In addition to having BASiC and Extended BASIC programs call assembly language programs, 
you may pass numeric and string data from one to the other. This may be done with PEEKs 
and POKES, or the CALL LINK statement can be used. The entry point address in CALL LINK 
can be followed by up to 16 variables which are available to the assembly language for it to 
act upon. 

The following subprogram example emulates the DISPLAY AT statement In Extended BASIC. It 
Is written to be run from Tl BASIC with either the Mini-Memory or Editor/Assembler module 
Installed. The program was written with Editor/Assembler, so If you will be using the Line-by- 
Line assembler with the Mini-Memory, you will need to make the changes mentioned In 
Chapter Five. A similar program for the Line-by-Llne assembler Is listed In the Mini-Memory 
manual. 



The format of a Tl BASIC program that will use this subprogram will vary depending on which 
module is used and which hardware configuration you use with your computer. For Mini- 
Memory users who have already assembled the program, stored It in the module and added 
the program name and entry point to the REF/DEF table, this format would be used: 

CALL LINKCDEF LABEL",ROW,COL,STRING) 

For example: 



110 CALL LINK('GO",12,6,S$) 
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Editor/Assembler users would use a format similar to this Tl BASIC program: 



10 REM ***************************** 
20 REM * BASIC PROGRAM TO CALL * 
30 REM * THE "DISPLAY AT" ASSEMBLY * 
40 REM * LANGUAGE SUBPROGRAM * 
50 REM ***************************** 
60 CALL INIT 

70 CALL L0AD("DSK1.BSCSUP") 
80 CALL LOAD ("DSKl. OBJECT") 
90 INPUT "STRING?" :S$ 
100 INPUT "ROW?":R 
110 INPUT "COLUMN?" :C 
120 CALL LINK("GO",R,C,S$) 
130 FOR DELAY=1 TO 500 
140 NEXT DELAY 
150 GOTO 90 



The special routines used in this assembly program known as "Basic Support" 
(NUMREF,STRREF,ERR) are included on disl<ette "A" of the Editor/Assembler package. These 
must be loaded into the computer with a BASIC statement, such as the CALL 
L0AD("DSK1.BSCSUP") statement used here, in order for the assembly program to resolve the 
symbolic names of these routines. These routines already exist In the Mini-Memory module, so 
no such statement is required. Next, the object file which was created by assembling the 
program is loaded. You should specify the device name that fits your situation. 



** 


"DISPLAY AT" 


SUBPROGRAM 


** 


01 




DEF 


GO 




02 




REF 


VSBW , VMBW , VMBR , NUMREF , XMLLNK , STRREF , ERR 


03 


FPAC 


EQU 


>834A 




04 


SBUFF 


BSS 


256 


DEFINE STRING BUFFER 


05 


LBUF 


BSS 


32 


DEFINE LINE BUFFER 


06 


LIM 


DATA 


>0001,>0018 


,>001C DEFINE ROW & COLUMN RANGES 


07 


GO 


MOV 


R11,R10 


SAVE RETURN ADDRESS 


08 




CLR 


RO 


CLEAR RO - NUMREF PARAM #1 


09 




LI 


Rl,l 


INIT Rl TO 1 - NUMREF PARAM #2 


10 




BL 


@GETNUM 


GET 1ST VARIABLE (ROW NUMBER) 


11 




BL 


@CHKLMR 


CHECK ROW LIMITS 


12 




MOV 


@FPACyR4 


MOVE ROW VALUE TO R4 


13 




DEC 


R4 


ADJUST FOR ASSEMBLY LANGUAGE 


14 




SLA 


R4,5 


MULTIPLY ROW BY 32 


15 




MOV 


R4,R7 


MOVE ROW ADDR TO R7 


16 




INC 


Rl 


INCREMENT Rl FOR NEXT PARAMETER 


17 




BL 


@GETNUM 


GET 2ND VARIABLE (COLUMN NUMBER) 


18 




BL 


@CHKLMC 


CHECK COLUMN LIMITS 


19 




A 


@FPAC,R4 


ADD IN ROW VALUE 
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20 




INC 


R4 


ADJUST FOR BASIC 


21 




INC 


Rl 


INCREMENT Rl FOR NEXT PARAMETER 


22 




LI 


R2,SBUF 


LOAD R2 W/STRING BUFFER ADDRESS 


23 




SETO 


@SBUF 


INITIALIZE FIRST WORD TO >FFFF 


24 




BLWP 


@STRREF 


GET 3RD VARIABLE (THE STRING) 


25 




CLR 


R5 


CLEAR R5 (BYTE COUNTER) 


26 




MOV 


R2,R3 


MOVE SBUF ADDRESS TO R3 


27 




MOVB 


*R3+,R5 


GET 1ST BYTE (STRING LENGTH) 


28 




JEQ 


XT 


IF STRING LENGTH EQUALS ZERO EXIT 


29 




SWPB 


R5 


SWAP THE BITS OF R5 (LEFT ADJ) 


30 




BL 


@PRINT 


DISPLAY THE STRING 


31 


XT 


B 


*RIO 


RETURN TO CALLING PROGRAM 


32 


GETNUM 


BLWP 


QNUMREF 


GET BASIC NUMBER (FLOATING POINT) 


33 




BLWP 


@XMLLNK 


PERFORM FLTP TO INT CONVERSION 


34 




DATA 


>1200 


ADDRESS OF XML ROUTINE 


35 




B 


*R11 


RETURN 


36 


CHKLMC 


C 


@FPAC,@LIM+4 


COMPARE THE INTEGER TO 28 


37 




JGT 


ERROR 


IF GREATER THAN^ JUMP TO "ERROR" 


38 




JMP 


CHK 


JUMP TO "CHK" 


39 


CHKLMR 


C 


@FPAC,@LIM+2 


COMPARE THE INTEGER TO 24 


40 




JGT 


ERROR 


IF GREATER THAN, JUMP TO "ERROR" 


41 


CHK 


C 


@FPAC, @LIM 


COMPARE THE INTEGER TO 1 


42 




JLT 


ERROR 


IF LESS THAN, JUMP TO "ERROR" 


43 




B 


*R11 


RETURN 


44 


ERROR 


LI 


0,>1300 


LOAD RO WITH ERROR MESSAGE VALUE 


45 




BLWP 


@ER R 


BRANCH TO ERROR MESSAGE ROUTINE 


46 


PRINT 


MOV 


Rll,9 


SAVE LINKAGE ADDRRESS 


47 




LI 


R6,>6000 


LOAD R6 WITH SCREEN OFFSET VALUE 


48 




AI 


R7, 30 


CALC NEXT ROW ADDRESS 


49 


PLOOP 


MOV 


R4,R0 


MOVE VDP ADDRESS TO RO 


50 




MOVB 


*R3+,R1 


GET A BYTE FROM STRING BUFFER 


51 




AB 


R6rRl 


ADD SCREEN OFFSET TO Rl 


52 




BLWP 


@VSBW 


WRITE ONE BYTE 


53 




INC 


R4 


POINT TO NEXT SCREEN ADDRESS 


54 




DEC 


R5 


DECREMENT THE CHARACTER COUNT 


55 




JNE 


LI 


IF R5 IS NOT = 0, JUMP TO LI 


56 




B 


*R9 


RETURN 


57 


LI 


C 


R4,R7 


COMPARE NEW ADDRESS TO LIMIT 


58 




JL 


PLOOP 


IF LESS THAN, JUMP TO "PLOOP" 


59 




AI 


R7,32 


ELSE INC LIMIT BY 1 ROW (32) 


60 




Al 


R4,4 


INCREMENT SCREEN ADDRESS BY 4 


61 




CI 


R7,766 


IS NEW ROW OFF THE SCREEN 


62 




JLE 


PLOOP 


JUMP TO "PLOOP" 


63 




BL 


QSCROLL 


BRANCH TO SCROLL 


64 




AI 


R7,-32 


ADJUST LIMIT AFTER SCROLL 


65 




AI 


R4,-32 


ADJUST SCREEN ADDRESS AFTER SCROLL 


66 




JMP 


PLOOP 


JUMP TO "PLOOP" 


67 


SCROLL 


LI 


RO,-32 


INITIALIZE SCREEN ADDRESS 


68 




LI 


Rl^LBUF 


LOAD Rl W/LINE BUFFER ADDRESS 


69 




LI 


R2,32 


LOAD R2 WITH LENGTH OF LINE 
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70 L4 



AI R0,64 
BLWP @VMBR 
AI RO,-32 
CI RO,>2E0 
JLT NP 
JEQ SI 
B *R11 
MOV R1,R13 
MOV R2,R14 
LI R15,>2020 
MOV R15,*R13+ 
DECT R14 
JNE L3 
BLWP @VMBW 
JMP L4 
END 



MOVE DOWN ONE LINE 

READ A LINE INTO LINE BUFFER 

MOVE UP ONE LINE 

IS THIS THE LAST LINE? 

IF NOT JUMP TO "NP" 

IF IT IS, JUMP TO "SI" 

SCROLL IS DONE, RETURN 

COPY BUFFER POINTER 

COPY BUFFER LEN 

LOAD 2 SPACES INTO R15 

MOVE SPACES TO BUFFER 

DECREMENT BYTE COUNT 

PAD NEXT WORD 

WRITE MULTIPLE BYTES 

JUMP TO "L4" 



71 
72 
73 
74 
75 
76 



77 SI 



78 
79 



80 L3 



81 
82 



83 NP 



84 
85 



Lines 8 and 9 clear RO and load R1 with the value of 1. These registers are used by the 
NUMREF and STRREF routines as indicators. The value of RO tells the routine what type of 
value it will retrieve. The value of R1 tells the routines which variable is to be retrieved. A "1" 
indicates the first value passed from the BASIC program by the CALL LINK statement. The 
first value in the example is the row number. Line 10 performs a Branch and Link to the routine 
"GETNUM" at line 32. NUMREF gets the value (which is in floating point format) from the Ti 
BASIC value stack and places it at address >834A. This address is the Floating Point 
Accumulator. Next, the XMLLNK routine takes the floating point number and converts it to an 
integer (actually a binary expression which the assembly program can act upon). The result of 
the conversion is still at the address of the Floating Point Accumulator (>834A). 



It must be verified that this number is a valid row number from 1 to 24. Line 11 performs a 
Branch and Link to the routine "CI-iKLMR" at line 39. First the value is compared to the value 
at LIM + 2, which is 24. Then the value is compared to the value at LIM which is 1. If the row 
value is greater than 24 or less than 1, then a Jump is made to the label ERROR at line 44. The 
error routine causes the message "BAD VALUE" to be displayed and returns to the BASIC 
program. 



Line 12 in the assembly program is only reached when the row value has been verified as 
valid. Line 12 moves the row value into R4. The value needed to calculate the screen address 
in assembly language terms for this row is one less than the actual value retrieved. Line 13 
adjusts for this by DECrememting R4. The screen address of this row is equal to the value now 
in R4 multiplied by 32. Line 14 accomplishes this multiplication by shifting the bits of R4 to 
the left 5 positions. Any time the bits of a register are shifted left, the effect on the value of 
the register is equal to VALUE * 2 A N, where N is the number of positions shifted to the left. 
Since R4 is shifted left 5 positions and 2 A5 = 32, the effect is the same as multiplying by 32. 
Using the shift left instruction this way is a handy way to perform multiplication if the value 
you wish to multiply by is a power of 2. The value now in R4 is the screen address of the 
selected row. Line 15 saves this value in R7. 
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Line 16 adds 1 to the value In R1 before lines 17 and 18 retrieve and verify the column number. 
Adding one to R1 tells the routines NUIVIREF and STRREF to operate on the next value which 
v\/as passed by CALL LINK. Line 19 Is only reached once the column number has been 
retrieved and verified. It adds the column value to the row address In R4. Line 20 adds one to 
this value to make It correspond to the way In which DISPLAY AT handles row and column 
addresses. Ordinarily, when the user selects row one, column one, this translates to screen 
image table address 0, the first position on the screen. However, DISPLAY AT only recognizes 
columns 3 through 30 in each row for a length of 28 bytes per row. Thus, If row one, column 
one Is selected, the actual display will begin at row one, column three. Columns 1, 2, 31 and 
32 of each row contain filler characters and are not used for displays. Register four now 
contains the VDP RAM screen image table address which corresponds to the row and column 
numbers selected. 

At line 21, R1 Is again Incremented to Indicate to STRREF that it Is to operate on the next 
value that was passed by CALL LINK. The STRREF utility retrieves the BASIC string and 
converts It to an assembly language string. Line 22 loads R2 with the address of where the 
string is to end up (SBUF). The first byte of the string buffer must be a value which sets the 
maximum number of bytes to be accepted. When the string is returned by STRREF It will start 
at byte SBUF + 1, and the first byte (SBUF+0) will be changed to reflect the actual length of 
the string. The maximum number of bytes to be accepted is 255, or >FF. Line 23 uses the 
SETO instruction, which sets all the bits In the named address to ones. This is the opposite 
effect as using CLR, which sets all bits to zero. If all the bits of a word in memory are set to 
ones, the hex value of that word is >FFFF. Line 24 performs the BLWP to STRREF, which 
actually gets the string. Line 26 moves the address of the string buffer to R3 since R2 will be 
used later. Line 27 moves the string length found at the first byte of the string buffer to R5, 
which was cleared at line 25. Line 27 uses the auto-increment addressing feature, leaving the 
address in R3 pointing to SBUF+1 after the move. If the string length Is zero when moved Into 
R5, the equal bit will be turned on In the status register. This condition is checked at line 28, 
which directs the logic to return to the calling program, since a length of zero indicates that 
no string has been passed. Line 29 uses the Swap Bytes (SWPB) Instruction to change the 
value in R5 from the left byte to the right byte. If the value moved into R5 at line 27 was >FF, 
then R5 would contain >FFOO. After the SWPB instruction, R5 would contain >OOFF, or 
decimal 255. Line 30 performs a Branch and Link to the routine "PRINT" which will display the 
string at the desired screen location. 

Line 47 loads R6 with the Screen offset value which must be added to any ASCII character 
code before it can be properly displayed by an assembly language program which has been 
called from BASIC. Line 48 adds 30 to the value in R7. The value In R7 was the screen address 
of the row selected. R7 now contains the screen address value of the 31st column of the row 
selected. If the new screen address In R4 has reached this value, then It Is necessary to move 
to the next row before continuing with the display of the string. 

Line 49 moves the current screen address in R4 to RO. Line 50 moves a byte from the string 
buffer to R1 and auto-increments the address In R3 by one. Line 51 adds the screen offset 
value (>60) to R1 before line 52 writes it to the screen with the VDP Single Byte Write (VSBW) 
routine. Lines 53 and 54 increment the screen address and decrement the character count 
after each write. If the value in R5 reaches zero, the equal bit Is turned on in the status 
register. Line 55 checks for this condition and directs the logic of the routine to label "LI" as 
long as R5 is not zero. If R5 Is equal to zero, then all the characters of the string have been 
displayed, and Line 56 returns to the program. 
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Line 57 compares the new screen address to be used with the value in R7. If R4 Is greater than 
or equal to R7, the next byte to be displayed should go on the next row starting at column 
three. If R4 Is less than R7, line 58 directs the logic to the label "PLOOP" to write another 
byte. Lines 59 and 60 adjust the screen address and row limit values for the next row, column 
three. Line 61 compares the row limit value to 766. The maximum allowable row that could 
have been selected is 24. The address of the first column of row 24 Is equal to 736. Adding the 
row limit value to this gives the maximum value for R7 of 766. If R7 is greater than or equal to 
766, the current screen display must be scrolled up before the rest of the string can be 
displayed. As long as this maximum value has not been reached, line 62 will Jump to the label 
"PLOOP" to write another byte. Line 63 performs a Branch and Lini< to SCROLL when the 
maximum value in R7 has been reached. 



The effect of scrolling the screen display is to move all of the values in the screen table up 
one row and fill the bottom row with spaces. Anything displayed on the first row will be lost as 
it scrolls off the screen. To aid In this, a temporary storage buffer (LBUF) was set aside at line 
5 to hold one row of data (32 bytes). Lines 67, 68 and 69 load the initial values needed for the 
scroll operation. The VDP RAM address value in RO is Initially set -32 because line 70 will add 
64 to it each time through the loop named L4. The first time through this loop, RO will become 
equal to 32, the address of row two. R1 must contain the address of the line buffer and R2 the 
length, 32 bytes. 

Line 71 reads one row of characters from the screen into the line buffer (LBUF). Line 72 
adjusts the VDP RAM address In RO by 32 and line 73 checks the new value to see If SCROLL 
is done. If the value In RO is equal to >2E0, the logic Jumps to label SI. Otherwise, logic 
continues at NP at line 83. Line 83 writes the contents of the line buffer to the new screen 
address and line 84 Jumps to the label L4 to complete the loop. This loop continues until the 
compare at line 73 Is true at which time logic jumps to the label SI. Lines 77 through 82 copy 
the line buffer address and length into registers R13 and R14 and proceeds to fill the line 
buffer with spaces (>20). Line 82 keeps returning to label L3 until all 32 bytes of the line buffer 
have been filled with spaces. The logic of the routine then falls to line 83 which writes the 
contents of the line buffer (all spaces) to the last row on the screen. 

Logic transfers to label L4. The Compare at line 73 now has no effect on the logic of SCROLL, 
and line 76 returns to line 64 of PRINT. After scrolling, the limit and screen address values are 
adjusted by -32 at lines 64 and 65 before continuing to display the rest of the string. 



Included here are two programs that demonstrate the use of assembly routines with Tl BASIC 
or Tl Extended BASIC. 
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ASSEMBLER CHARACTER DEFINITION 

This program redefines the standard character set so that lower case letters appear as "true" 
lower case with descenders. This means the talis of the p,q,g,J and y can be printed on the 
screen. Also, some special foreign language characters have been defined. The Data 
statements In this routine use the same type of 16-character code used to define characters 
with the CALL CHAR statement in Tl BASIC. Characters with ASCII codes 30 through 126 have 
definitions provided. Space for data to redefine characters up to ASCI1 143 has been included 
so that you may use the routine to quickly define graphics characters at the beginning of a Ti 
BASIC or Ti Extended BASIC program. 

Note that the program cannot be assembled if the source file contains both the Extended 
BASIC DEF/EQU and the Editor/Assembler DEF/REF. To use the program with both TI BASIC 
and Extended BASIC, save separate versions of the source code and assemble two object files 
on separate disks. The Extended BASIC version should be assembled using the "R" option of 
Editor/Assembler, while the BASIC version should be assembled with the "C" option. The 
object file name should be "DSK1.CHARDF". 

To call the routine from your TI BASIC or Extended BASIC program, you need to use the 
following routine at the beginning of the program. 

100 CALL INIT 
110 CALL CLEAR 

120 CALL L0AD("DSK1.CHARDF") 
130 CALL LINK("CHARDF") 

If you use Extended BASIC, you can save the above routine as the filename "DSK1.L0AD". 
When you select Extended BASIC, It will run automatically. Then, any Extended BASIC 
program you rbn will have the characters defined by the routine If you use a CALL 
LINKC'CHARDF") statement. Once the routine is loaded Into memory expansion, it needn't be 
reloaded unless memory expansion Is turned off. 



* ASSEMBLER CHARACTER DEFINITION * 

* by David Migicovsky * 

* Copyright (C) 1983 * 

* by Steve Davis Publishing * 

* THE NEXT TWO LINES ARE FOR USE WITH 

* TI EXTENDED BASIC VERSION ONLY 

DEF CHARDF,VMBW 



VMBW EQU >2024 
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* THE NEXT TWO LINES ARE FOR USE WITH 

* Tl BASIC AND EDITOR/ASSEMBLER ONLY 

DEF CHARDF 



REF VMBW 



sir 


PATTERN IDENTIFIERS 


*CHAR 


ACr* T T 


NEWDCiJb DA LA 


>7C7C, 


>6C6C, 


>6C6C, 


>7C7C 


* 




Oxt 


DATA 


>0000, 


>0000, 


>0000, 


>0000 


* 




jx. 


DATA 


>0000, 


>0000, 


>0000, 


>0000 


* 


If If 




r\A m A 

DATA 


>1010, 


>1010, 


>I000, 


>1000 


* 


It 1 n 


00 


DATA 


>2828, 


>2800, 


>0000, 


>0000 


* 


n If II 


oft 


A rn A 

DATA 


>2828, 


>7C28, 


>7C28, 


>2800 


* 






DATA 


>3854, 


>5038, 


>1454, 


>3800 


* 




JO 


DATA 


>6064, 


>0810r 


>204C, 


>0C00 


* 




/ 


T> A m A 

DATA 


>2050, 


>5020, 


>5448, 


>3400 


* 


••&" 


JO 


r\A m A 

DATA 


>0808, 


>1000, 


>0000, 


>0000 


* 


n f If 


J7 


DATA 


>0810, 


>2020| 


>2010, 


>0800 


* 


tl 


*±lO 


DATA 


>2010, 


>0808, 


>0810| 


>2000 


* 


n ^ If 


A 1 


DATA 


>0028| 


>107C, 


,>1028, 


,>0000 


* 


n*" 


4Z 


DATA 


>0010, 


.>107C, 


.>1010, 


>0000 


* 


it^n 


41 


DATA 


>0000i 


r>0000| 


>>0030| 


->1020 


* 


It H 

f 


H*t 


DATA 


>0000i 


->007C, 


' >0000j 


r>0000 


* 


W „lf 


A C 


DATA 


>0000 J 

^ IV IV § 


r >0000| 


- >0030| 


r>3000 


* 


It n 
• 


^ C 

4d 


DATA 


>0004j 


r>0810| 


r >2040| 


r >0000 


* 


H 


47 


DATA 


>3844, 


r>4444j 


r>4444, 


r>3800 


* 


"0" 


48 


DATA 


>1030j 


r >1010j 


p >1010i 


r>3800 


* 


II 


49 


DATA 


>3844, 


r >0408j 


r>1020, 


r>7C00 


* 


"2" 


50 


DATA 


>3844, 


, >0418j 


r>0444j 


r>3800 


* 


"3" 


51 


DATA 


>0818j 


r>2848i 


r>7C08, 


r>0800 


* 


n ^if 


52 


DATA 


>7C40, 


r>7804, 


r>0444j 


p>3800 


* 


"5" 


53 


DATA 


>1820i 


,>4078, 


r>4444| 


r>3800 


* 


itgif 


54 


DATA 


>7C04, 


r>0810, 


r>2020j 


r>2000 


* 


tl •711 


55 


DATA 


>3844, 


r>4438, 


.>4444, 


r>3800 


* 


11311 


56 


DATA 


>3844, 


r>443C, 


r>0408, 


p>3000 


* 


11 9 n 


57 


DATA 


>0030| 


r>3000| 


r>3030i 


r>0000 


* 


n • N 
• 


58 


DATA 


>0000j 


r>3030< 


r>0030i 


,>1020 


* 


tl • It 


59 


DATA 


>0810, 


r>2040, 


r>2010, 


r>0800 


* 


n 


60 


DATA 


>0000i 


r>7C00, 


r>7C00, 


r>0000 


* 


It— n 


61 


DATA 


>2010, 


r>0804, 


r>0810, 


r>2000 


* 


It 


62 


DATA 


>3844< 


r>0408| 


r>1000< 


r>1000 


* 


n pit 


63 


DATA 


>3844, 


r>5C54, 


r>5C40, 


r>3800 


* 




64 


DATA 


>3844, 


r>447C, 


r>4444, 


r>4400 




"A" 


65 


DATA 


>7824, 


r>2438, 


r>2424, 


r>7800 


* 


"B" 


66 


DATA 


>3844, 


r>4040< 


r>4044, 


r>3800 


* 


"C" 


67 


DATA 


>7824, 


r>2424, 


r>2424, 


r>7800 


* 


"D" 


68 


DATA 


>7C40, 


r>4078( 


r>4040, 


r>7C00 


* 


"E" 


69 


DATA 


>7C40, 


r>4078| 


r>4040, 


r>4000 


* 


npw 


70 
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DATA 


>3C40, 


>405C, 


>4444, 


>3800 


* 


"G" 


71 


DATA 


>4444, 


>447C, 


>4444, 


>4400 


* 




72 


DATA 


>3810, 


>1010, 


>1010, 


>3800 


-k 




73 


DATA 


>0404, 


>0404, 


>0444, 


>3800 


•k 


II jn 


74 


DATA 


>4448, 


>5060, 


>5048, 


>4400 


it 


"K" 


75 


DATA 


>4040, 


>4040, 


>4040, 


>7C00 


* 


"L" 


76 


DATA 


>446C, 


>5454, 


>4444, 


>4400 


* 




77 


DATA 


>4464, 


>6454| 


>4C4C, 


>4400 




"N" 


78 


DATA 


>7C44, 


>4444, 


>4444, 


>7C00 


* 


"0" 


79 


DATA 


>7844, 


>4478, 


>4040, 


>4000 


•k 


n pn 


80 


DATA 


>3844, 


>4444, 


>5448, 


>3400 


* 


IIQtl 


81 


DATA 


>7844, 


>4478, 


>5048, 


>4400 


* 


"R" 


82 


DATA 


>3844, 


>4038, 


>0444| 


>3800 


ic 


iign 


83 


DATA 


>7C10, 


>1010, 


>1010, 


>1000 


-k 


ii^ii 


84 


DATA 


>4444, 


>4444, 


>4444, 


>3800 


■k 


"U" 


85 


DATA 


>4444, 


>4428, 


>2810, 


>1000 


* 


w V" 


86 


DATA 


>4444, 


r>4454, 


r>5454, 


>2800 


* 


"W" 


87 


DATA 


>4444, 


>2810, 


r>2844, 


r>4400 


* 


"X" 


88 


DATA 


>4444| 


r>2810, 


r>1010, 


r>1000 


* 


n yw 


89 


DATA 


>7C04| 


r>0810, 


r>2040, 


r>7C00 


* 


"Z" 


90 


DATA 


>0810, 


r>3844, 


r>7C40, 


r>3800 


* 


n 


91 


DATA 


>3030, 


p>3FFF, 


r>FE7C, 


r>180C 


* 


II ^11 


92 


DATA 


>2010| 


r>3844| 


r>7C40, 


.>3800 


* 


11 j It 


93 


DATA 


>3844, 


->4040, 


r>4438| 


r>l000 


k 


II '^n 


94 


DATA 


>1028, 


,>0038, 


r>4848, 


r>3400 


* 


n n 


95 


DATA 


>0000j 


r>3840, 


r>4038, 


r>1000 


k 


m'^ii 


96 


DATA 


>0000j 


r>3848, 


r>4848, 


r>3400 


k 


"a" 


97 


DATA 


>6020, 


r>3824, 


r>2424i 


r>7800 


k 


"b" 


98 


DATA 


>0000j 


r>3844, 


r>4044| 


r>3800 


k 


"c" 


99 


DATA 


>0C08| 


r>3848j 


r>4848i 


r>3C00 


k 


"d" 


100 


DATA 


>0000i 


r>3844| 


r >7C40i 


r>3800 


k 


HgW 


101 


DATA 


>1824i 


r >2070< 


r>20204 


r >2000 


k 


II£II 


102 


DATA 


>0000i 


r>3C44^ 


r>3C04^ 


r>0438 


k 


"g" 


103 


DATA 


>6020< 


r>2834, 


r>2424, 


r>2400 


k 


"h" 


104 


DATA 


>1000j 


1 >7010, 


r>1010< 


r>7C00 


k 


"i" 


105 


DATA 


>0800i 


f >1808, 


r >0848( 


r>4830 


k 


II j n 


106 


DATA 


>2020, 


r>2428^ 


r>3028, 


r>2400 


k 




107 


DATA 


>3010, 


r>1010i 


r>1010i 


r>7C00 


k 


II 2 n 


108 


DATA 


>0000^ 


r>A854, 


r>5454, 


r>5400 


k 


"m" 


109 


DATA 


>0000j 


r>5824, 


r>2424, 


r>2400 


k 


"n" 


110 


DATA 


>0000i 


r>3844, 


r>4444, 


r>3800 


k 


"o" 


111 


DATA 


>0000i 


r>7824, 


r>2438, 


r>2020 


k 


"p" 


112 


DATA 


>0000i 


r>3048< 


r>3808^ 


r>080C 


k 


"q" 


113 


DATA 


>0000, 


r>5824, 


r>2020, 


r>2000 


k 


II ^ n 


114 


DATA 


>0000< 


r>3C40< 


r>3804( 


,>7800 


k 


"S" 


115 
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DATA >2020,>7820,>2024,>1800 * "t" 116 

DATA >0000,>4848,>4848,>3400 * "u" 117 

DATA >0000,>4444,>2828,>1000 * "v" 118 

DATA >0000,>D454,>5454r>2800 * "w" 119 

DATA >0000,>4428,>1028,>4400 * "x" 120 

DATA >0000,>4444,>3C04,>0418 * "y" 121 

DATA >0000,>7C48,>1024,>7C00 * "z" 122 

DATA >1820,>2040,>2020,>1800 * 123 

DATA >1010^>1000,>1010,>1000 * "I" 124 

DATA >3008,>0804,>0808,>3000 * 125 

DATA >0000^>2054,>0800,>0000 * 126 

DATA >0000,>0000,>0000,>0000 * 127 

DATA >0000,>0000,>0000,>0000 * 128 

DATA >0000,>0000^>0000,>0000 * 129 

DATA >0000,>0000,>0000,>0000 * 130 

DATA >0000,>0000,>0000,>0000 * 131 

DATA >0000,>0000,>0000,>0000 * 132 

DATA >0000,>0000,>0000,>0000 * 133 

DATA >0000,>0000,>0000,>0000 * 134 

DATA >0000,>0000,>0000,>0000 * 135 

DATA >0000^>0000,>0000,>0000 * 136 

DATA >0000,>0000,>0000,>0000 * 137 

DATA >0000,>0000,>0000,>0000 * 138 

DATA >0000,>0000,>0000,>0000 * 139 

DATA >0000,>0000,>0000,>0000 * 140 

DATA >0000,>0000,>0000,>0000 * 141 

DATA >0000,>0000,>0000,>0000 * 142 

DATA >0000,>0000,>0000,>0000 * 143 



CHARDF LI R0^1008 *THIS IS A DECIMAL NUMBER 
LI Rl^NEWDEF 

LI R2,904 *THIS IS A DECIMAL NUMBER 

BLWP @VMBW 

RT 

END 
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MINI-MEMORY CHARACTER DEFINITION 

To use with the Llne-by-Llne Assembler and the Mini-Memory, delete all lines except the DATA 
statements. Change the label on the first line of DATA from "NEWDEF" to "ND". Insert two 
new lines at the beginning of the program, making the first DATA statement line number three: 



Line 1 AORG >7D00 

Line 2 VM EQU >6028 

Line 3 ND DATA >7C7C 



Immediately following the last line of DATA statements, add the following lines: 

CD LI R0,1008 

LI Rl^ND 

LI R2,904 

BLWP @VM 

CLR @>837C 

B *11 
END 



To access the routine from a Tl BASIC program, you would use the statement CALL 
LINKC'CD"). 
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BAR GRAPH PROGRAM 

This program example was created by Phil West and Bernie Eisner, two 99/4 enthusiasts from 
"down under" in Australia, it is a routine that is designed to be called from any Tl BASIC pro- 
gram with the Mini-Memory or Editor/Assembler modules installed. 
The routine allows you to plot high-resolution bar graphs in various colors. To access the 
routine, use the Tl BASIC statement CALL LiNKC'BGRAPH",COLUMN,COLOR,HEIGHT). COL- 
UMN should be a number between 1 and 28, the screen column in which the bar Is to appear. 
COLOR is the color of the bar, a number from 1 to 7, derived as follows: 



Color Number Color Character Set Used 



1 Black 10 

2 Dark Blue 11 

3 Dark Red 12 

4 Dark Yellow 13 

5 Dark Green 14 

6 Magenta 15 

7 White 16 



HEIGIHT should be a number between 1 and 160, indicating the number of pixel rows tail that 
the bar will be. All bars are drawn beginning at character row 20 and may extend upward as 
high as the first character row. This leaves character rows 21 through 24 open for text display. 
Following the assembly listing Is a demonstration program in Tl BASIC that allows you to see 
the results. If you will be using the Editor/Assembler module, you will need to load the BASIC 
Support file from the Editor/Assembler disk A. The demonstration program prompts you to put 
the disk in drive one. The object code of the Bar Graph assembly program should be saved 
with the filename of "BGRAPH/0" (for Bar Graph Object) and should be in disk drive one when 
running the demo. 



* BAR-GRAPH ROUTINE 

* FOR USE WITH MINI -MEMORY FROM Tl BASIC 

* BY PHIL WEST AND BERNIE ELSNER 
* 



DEF 


BGRAPH 




REF 


VMBW^VSBW, 


NUMREF,XMLLNK,ERR 


DATA 


>0000 


* 


DATA 


>0000 


* 


DATA 


>0000 


* 


DATA 


>003C 


* CHARACTER DEFINITIONS 


DATA 


>3C3C 


* 


DATA 


>3C3C 


* 


DATA 


>3C3C 


* 


DATA 


>3C3C 


* 
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D2 DATA >1040 

DATA >60A0 

DATA >C0D0 

DATA >F000 
BGRAPH CLR R0 

* GET THREE PARAMETERS 

LI Rl,>0001 
BLWP QNUMREF 
BLWP @XMLLNK 
DATA >1200 
MOV @>834A,R3 
CI R3,>0000 
JGT C 
B @E 
C CI R3,>001D 

JLT F 
B @E 
F INC Rl 

BLWP @NUMREF 
BLWP @XMLLNK 
DATA >1200 
MOV @>834A,R4 
CI R4,>0000 
JGT G 
B @E 
G CI R4,>0008 

JLT H 
B @E 
INC Rl 
BLWP @NUMREF 
BLWP @XMLLNK 
DATA >1200 
MOV @>834A,R5 
CI R5,>0000 
JGT J 
B *R11 
CI R5,>00A1 
JLT K 
B @E 



COLOUR BYTES 



H 



DEFINE CHARACTERS 



FROM LINK LIST 
* GET FIRST PARAMETER 



* CHECK IF VALID VALUE 



* GET SECOND PARAMETER 



* CHECK IF VALID VALUE 



* GET THIRD PARAMETER 



* CHECK IF VALID VALUE 



K 


LI 


R2,>0008 




HOW MANY BYTES TO WRITE & INCR FOR R0 




LI 


R0,>0640 


* 


VDP WRITE ADDRESS 


B 


LI 


R1,D1 


* 


ADDRESS OF CHARACTER DATA IN Rl 


A 


BLWP 


@VMBW 


* 


WRITE 8 BYTES INTO CHAR TABLE 




A 


R2,R0 


* 


INCREMENT BY 8 FOR NEXT CHAR 




INC 


Rl 


it 


SHIFT 1 PIXEL ROW DOWN DATA 




CI 


Rl,Dl+8 


* 


LAST DATA ADDRESS ? 
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JLT 

CI 

JLT 



A 

R0,>0800 
B 



* NO KEEP GOING 

* LAST CHAR TO DEFINE 

* NO DO NEXT CHAR 



DEFINE CHARSET COLOURS 

LI R0,>0319 
LI R1,D2 
LI R2,>0007 
BLWP @VMBW 



* VDP ADDRESS FOR CHARSET 10 

* SET COLOUR 

* 7 BYTES TO WRITE 



DETERMINE CHARACTER TO USE 



SLA 
AI 



R4,3 

R4,>00C0 



SWPB R4 
LI R6,>0020 
LI R0r>0261 
A R3,R0 



* MULTIPLY BY 8 

* 192 LESS OFFSET OF 96 = 96+8 = 104 

* WHICH IS 1ST CHAR OF CHARSET 10 

* CHAR TO USE 

* ROW DECREMENT VALUE 

* SET ROW 20 COL 2 

* COLUMN TO USE 



* 
* 

N 

M 
P 



DRAW BAR ONE PIXEL ROW AT A TIME 



CLR 

MOV 

BLWP 

DEC 

CI 

JGT 

B 

AI 

INC 

CI 

JLT 

S 

JMP 



R7 

R4,R1 
@VSBW 
R5 

R5,>0000 
L 

*R11 

Rl,>0100 
R7 

R7,>0008 
M 

R6,R0 
N 



ERROR IN PARAMETER 

LI R0,>1300 
BLWP @ERR 
END 



* RESET COUNTER 

* PREPARE TO WRITE 1ST BYTE 

* WRITE ONE BYTE 

* REDUCE BAR BY ONE PIXEL ROW 

* FINISHED ? 

* NO. CONTINUE 

* YES. RETURN TO BASIC 

* GET NEXT CHARACTER 

* INCREMENT COUNTER 

* WRITTEN ONE FULL CHARACTER ? 

* NO. CONTINUE 

* YES. DECREMENT ROW 

* CONTINUE NEXT ROW 



* BAD VALUE ERROR 
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100 REM BAR GRAPH DEMONSTRATION 

110 REM TI BASIC W/MINI-MEMORY OR 

120 REM EDITOR/ASSEMBLER MODULE 

130 REM BY PHIL WEST AND BERNIE ELSNER 

140 CALL CLEAR 

150 RANDOMIZE 

160 PRINT "PLACE FILE 'BGRAPH/O* IN" 

170 PRINT "DISK DRIVE ONE THEN" 2 "PRESS ENTER" 

180 INPUT E$ 

190 PRINT "LOADING MACHINE LANGUAGE" : "PLEASE WAIT" 
200 CALL INIT 

210 CALL LOAD(28706,0,0,0,0,0,0,0,0) 
220 CALL LOAD("DSKl.BGRAPH/0") 

230 PRINT 2 "WHICH MODULE ARE YOU USING?" : "ENTER" 

240 PRINT " E - FOR EDITOR/ASSEMBLER":" M - FOR MINI-MEMORY" 

250 INPUT E$ 

260 IF E$="M" THEN 350 

270 IF E$<>"E" THEN 250 

280 PRINT :" PLACE EDITOR/ASSEMBLER" 

290 PRINT "DISK A IN DRIVE ONE THEN" 2 "PRESS ENTER" 

300 INPUT E$ 

310 CALL CLEAR 

320 CALL L0AD("DSK1.BSCSUP") 

330 REM RESERVE SPACE FOR CHARACTER DEFIi(ITION 

340 REM IN MACHINE LANGUAGE ROUTINE 

350 FOR 1=104 TO 159 

360 CALL CHAR(I^"") 

370 NEXT I 

380 CALL CLEAR 

390 CALL SCREEN (15) 

400 PRINT "MICRO RETAIL PROFITS 1982-84" 
410 PRINT " (Q)UIT OR (R)EPEAT" 
420 F=l 

430 FOR 1=1 TO 28 
440 F=F*1.195 

450 CALL LINK("BGRAPH",I,1,F) 

460 NEXT I 

470 FOR D=l TO 800 

480 NEXT D 

490 FOR 1=1 TO 28 

500 CALL VCHAR(l,I+2,32,20) 

510 CALL LINK("BGRAPH"rI,6,F) 

520 F=F/1.195 

530 NEXT I 

540 FOR D=l TO 800 

550 NEXT D 

560 CALL HCHAR(1, 1,32,640) 

570 REM GENERATE RANDOM PARAMETERS 

580 FOR 1=1 TO 28 
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590 B=INT(RND*7+1) 

600 C=INT(RND*160+1) 

610 REM DRAW BAR WITH M/L ROUTINE 

620 CALL LINK("BGRAPH"^IyB,C) 

630 NEXT I 

640 CALL KEY(0,K,S) 

650 IF K=82 THEN 380 

660 IF K081 THEN 640 

670 END 



EDITOR/ASSEMBLER MANUAL REFERENCES 

The following references will provide you with some more information on mixing assembly 
with BASIC. 

Read these sections: 

Section 17.1 page 273 through Section 17.2.6 page 289. 
Section 18.2.5 page 300. 
Section 21.1 page 326. 

Section 24.4 page 410 through Section 24.4.9 page 418. 
Section 24.11 page 440 through Section 24.11.3 page 442 

Look up these terms In the glossary: 

GPL 
Loader 
Utilities 
Workspace 

Workspace Pointer Register 
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PARTING WORDS 

There are several points aside from the actual understanding of TMS9900 assembly language 
that can help make programming In this language somewhat easier and more productive. 
These involve certain work habits and procedures and appreciating the task at hand when 
creating assembly programs. 

No matter how proficient you are now or may become with assembly language programming, 
It is almost never practical or sensible to simply begin typing lines of code for a new program. 
Though this may be possible with Tl BASIC, It Is not advisable with assembly. Once you have 
decided on an application you would like to write In TMSOSOO assembly language, take the 
time to sketch out your program with pencil and paper before going to the computer. As 
stressed earlier In this book, assembly language requires a great deal of detailed 
consideration for each and every little thing you want to do. 

Consult any reference materials you have at your disposal to insure that the first draft of your 
program is as free of errors in logic and syntax as possible. Make use of sections of programs 
you have written previously. Many professional programmers maintain an Inventory of 
subroutines they have developed that can be reassembled modularly to form the basis of a 
new application program. 

At a very fundamental level, you should pay close attention to the structure and design of your 
programs. Assembly languages are basically free-form languages. As long as the rules of 
syntax are obeyed, the directives. Instructions, and data can appear in any order. This is one 
case where freedom Is not necessarily a good thing. The program examples given in this book 
all follow a presclbed pattern or form. Directives, data statements, references, and equates are 
all listed first. These are then followed by the actual program instructions. As much as 
possible, your programs should Incorporate a "top down" design. As you read the program 
from top to bottom, you should be following the logical sequence of events as they occur. 

If you were to create a painting, a symphony or a skyscraper, careful design and planning 
would be crucial to the successful implementlon of your creation. The same applies to 
creating an assembly program. You need to consider In advance how you will tackle the task 
at hand. You must anticipate the needs of the program Itself, such as temporary storage fields 
for calculations and data manipulation. Look for redundant functions that could be coded as 
subroutines. Document your programs with comments and labels that explain the program 
logic. Consistently align the labels, instructions, and operands on the column boundaries they 
will occupy. This makes your program easier to read. Paying attention to neatness can usually 
make errors easier to detect. 

Develop your own style and structure In designing programs and stick to It. Borrow freely from 
other examples you find to substitute for, or improve upon, your own designs. You can learn a 
great deal from other assembly programmers. A good place to find this kind of help is at a 
local users group. And, remember that one of your best teachers is simple trial and error. If 
you have been wondering If something will work, try it. 
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Several products are available that can help In program development and debugging. As 
mentioned, these Include special hexadecimal calculators and software packages such as the 
Tl Programming Aids series. There are also disassemblers that can convert object code back 
into source code. Both the Line-by-Llne assembler and the Editor/Assembler come with 
interactive debugging programs to assist you In your programming. Pros and hobbyists alike 
benefit from these kinds of productivity tools. However, it should be stressed that none of 
these is a substitute for a fundamental understanding of assembly language principles. 

Remember to make back up copies of programs and data files before running the programs or 
accessing the data. This can save you headaches and frustration. Good computer work habits 
become more critical when working In assembly language. 

If you are using Editor/Assembler, a printer Is one of the most useful peripheral devices you 
could own. The listings you can produce with it are invaluable for debugging programs and 
creating documentation. It will help to have a printed listing to do a "walk through." This 
involves reading through the program a line at a time. As you encounter each line of code, 
make note of what is stated and record the results as you understand them on a piece of 
paper. For example, draw a set of columns and label the top of each with the name of the 
label or register involved. Then, as values are initialized or changed, record these values In the 
correct column. Draw a line through the previous value when a value changes. Do not erase it 
since you may need to refer back to it. Make note of the line number that caused the change. 
This will show you the contents of each register or field at each step. If you encounter an 
instruction to add the contents of two registers having values that were determined 20 lines 
before, the values to be added will be In the corresponding columns you created. 



Developing good work habits and disciplines and learning to pay attention to details will 
assist you in assembly language programming and In all other types of interaction with your 
computer. Practice makes perfect. The more you work with assembly language, the better you 
will become at It. Of course, this will require some effort and determination on your part. You 
will be rewarded for your effort with an Increased understanding of your computer and a 
powerful tool that puts its potential at your command— TMS9900 Assembly Language. 



This introductory text offers step- by-step instruction in getting 
started witli the powerful TMS9900 Assembly Language for the 
Texas Instruments Home Computer. It is written to m'eet the 
needs of the beginner with a knowledge of Tl BASIC who 
wishes to unlock the vast potential and speed of this popular 
1 6-bit computer. This is an easy-to-read tutorial presenting 
simple-to-follow progressive steps from assembly language 
basics to the design and coding of useful programs and 
subroutines. Comparisons to Tl BASIC statements help to teach 
you TMS9900 Assembly by building on your BASIC program- 
ming skills. Sample programs that can be entered with the Tl 
Editor/Assembler or Mini-Memory modules are included and 
explained In detail. Charts, tables and diagrams aid you in 
understanding and are useful for future reference. Whether you 
wish to learn to write complete programs in TMS9900 Assembly 
Language, if you want to incorporate assembly routines into your 
Tl BASIC and Tl Extended BASIC programs, or even if you just 
wish to acquire a better understanding of how your Tl Home 
Computer works, this book will help you. 
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